swap fields of Size

This commit is contained in:
Rhiannon Morris 2020-08-12 18:05:47 +02:00
parent c30cb303ae
commit 14484184e3

View file

@ -230,7 +230,7 @@ nth n = [b|$^n$suf|] where
| otherwise = "th" | otherwise = "th"
data Size = Size {height, width :: !Int} deriving (Eq, Show) data Size = Size {width, height :: !Int} deriving (Eq, Show)
imageSize :: FilePath -> FilePath -> IO Size imageSize :: FilePath -> FilePath -> IO Size
imageSize dir img = do imageSize dir img = do