word2ExifType :: Word16 -> Maybe Type
word2ExifType rawWord =
  case rawWord of
    1  -> Just Byte
    2  -> Just Ascii
    3  -> Just Short
    4  -> Just Long
    5  -> Just ExifRational
    7  -> Just Undefined
    9  -> Just SLong
    10 -> Just SRational
    _  -> Nothing
word2ExifType :: Word16 -> Maybe Type
word2ExifType rawWord =
  case rawWord of
    1  -> Just Byte
    2  -> Just Ascii
    3  -> Just Short
    4  -> Just Long
    5  -> Just ExifRational
    7  -> Just Undefined
    9  -> Just SLong
    10 -> Just SRational
    _  -> Nothing
word2ExifType rawWord =
  case rawWord of
    1  -> Just Byte
    2  -> Just Ascii
    3  -> Just Short
    4  -> Just Long
    5  -> Just ExifRational
    7  -> Just Undefined
    9  -> Just SLong
    10 -> Just SRational
    _  -> Nothing