From 14484184e3356f179cdcb5bc9acbddcca4426fda Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Wed, 12 Aug 2020 18:05:47 +0200 Subject: [PATCH] swap fields of Size --- make-pages/SinglePage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index dbb07a6..e6fd4ea 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -230,7 +230,7 @@ nth n = [b|$^n$suf|] where | 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 dir img = do