@@ -544,10 +544,12 @@ exifHeader hdr = do
544544 let resfactor = case lookup ResolutionUnit allentries of
545545 Just (UnsignedShort 1) -> 100 / 254
546546 _ -> 1
547− let xres = maybe 72 (\(UnsignedRational x) -> floor $ x * resfactor)
548− $ lookup XResolution allentries
549− let yres = maybe 72 (\(UnsignedRational x) -> floor $ x * resfactor)
550− $ lookup YResolution allentries
547+ let xres = case lookup XResolution allentries of
548+ Just (UnsignedRational x) -> floor (x * resfactor)
549+ _ -> 72
550+ let yres = case lookup YResolution allentries of
551+ Just (UnsignedRational y) -> floor (y * resfactor)
552+ _ -> 72
551553 return ImageSize{
552554 pxX = wdth
553555 , pxY = hght