From bee1ab2eae2908b999a7dfcf5408f019d87d1700 Mon Sep 17 00:00:00 2001 From: Quinten Kock Date: Mon, 13 Dec 2021 07:10:36 +0100 Subject: [PATCH] day13: remove unneeded alias --- 2021/day13.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/2021/day13.hs b/2021/day13.hs index 91d01bd..125e579 100644 --- a/2021/day13.hs +++ b/2021/day13.hs @@ -14,8 +14,8 @@ parseFold :: String -> Fold parseFold s = if axis == "x" then Horizontal (read line) else Vertical (read line) where [axis,line] = splitOn "=" $ last (words s) fold :: Fold -> Dot -> Dot -fold fold@(Vertical f) (x,y) = (x, if y > f then f - (y-f) else y) -fold fold@(Horizontal f) (x,y) = (if x > f then f - (x-f) else x, y) +fold (Vertical f) (x,y) = (x, if y > f then f - (y-f) else y) +fold (Horizontal f) (x,y) = (if x > f then f - (x-f) else x, y) main :: IO () main = do