diff options
Diffstat (limited to '')
| -rw-r--r-- | 2020/05-Binary_Boarding/first.hs | 2 | ||||
| -rw-r--r-- | 2020/05-Binary_Boarding/second.hs | 2 |
2 files changed, 2 insertions, 2 deletions
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 |