typeSize :: Type -> Int
typeSize etype =
  case etype of
    Byte         -> 1
    Ascii        -> 1
    Short        -> 2
    Long         -> 4
    ExifRational -> 8
    Undefined    -> 1
    SLong        -> 4
    SRational    -> 8
typeSize :: Type -> Int
typeSize etype =
  case etype of
    Byte         -> 1
    Ascii        -> 1
    Short        -> 2
    Long         -> 4
    ExifRational -> 8
    Undefined    -> 1
    SLong        -> 4
    SRational    -> 8
typeSize etype =
  case etype of
    Byte         -> 1
    Ascii        -> 1
    Short        -> 2
    Long         -> 4
    ExifRational -> 8
    Undefined    -> 1
    SLong        -> 4
    SRational    -> 8