From 6bb7ccb654b6990bb78b9aca80308f64017ddabe Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 19 Mar 2023 14:49:16 +0100
Subject: small style fixes

---
 2020/05-Binary_Boarding/first.hs   | 2 +-
 2020/05-Binary_Boarding/second.hs  | 2 +-
 2020/07-Handy_Haversacks/second.hs | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to '2020')

diff --git a/2020/05-Binary_Boarding/first.hs b/2020/05-Binary_Boarding/first.hs
index 2f3ad7b..42fb9f0 100644
--- a/2020/05-Binary_Boarding/first.hs
+++ b/2020/05-Binary_Boarding/first.hs
@@ -34,7 +34,7 @@ parseBP = do
   return $ BoardingPass { row=row, column=column }
 
 parseBPs :: Parser [BoardingPass]
-parseBPs = some (parseBP) <* eof
+parseBPs = some parseBP <* eof
 
 parseInput :: String -> IO [BoardingPass]
 parseInput filename = do
diff --git a/2020/05-Binary_Boarding/second.hs b/2020/05-Binary_Boarding/second.hs
index 9f85b7e..fca6873 100644
--- a/2020/05-Binary_Boarding/second.hs
+++ b/2020/05-Binary_Boarding/second.hs
@@ -30,7 +30,7 @@ parseBP = do
   return $ row * 8 + column
 
 parseBPs :: Parser [BoardingPass]
-parseBPs = some (parseBP) <* eof
+parseBPs = some parseBP <* eof
 
 parseInput :: String -> IO [BoardingPass]
 parseInput filename = do
diff --git a/2020/07-Handy_Haversacks/second.hs b/2020/07-Handy_Haversacks/second.hs
index 3d8dcda..7446137 100644
--- a/2020/07-Handy_Haversacks/second.hs
+++ b/2020/07-Handy_Haversacks/second.hs
@@ -75,6 +75,6 @@ main = do
   when  (exampleOutput /= exampleExpectedOutput)  (die $ "example failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
   example2 <- parseInput "example2"
   let exampleOutput2 = compute example2
-  when  (exampleOutput2 /= exampleExpectedOutput2)  (die $ "example2 failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
+  when  (exampleOutput2 /= exampleExpectedOutput2)  (die $ "example2 failed: got " ++ show exampleOutput2 ++ " instead of " ++ show exampleExpectedOutput2)
   input <- parseInput "input"
   print $ compute input
-- 
cgit v1.2.3