Rewrote readLines function to be more concise

This commit is contained in:
2025-05-27 08:55:10 -04:00
parent da38ac226f
commit 8696a185a7

@@ -15,7 +15,7 @@ readLinesHelper xs = do
readLinesHelper xs' readLinesHelper xs'
readLines :: IO [String] readLines :: IO [String]
readLines = fmap reverse $ readLinesHelper [] readLines = reverse <$> readLinesHelper []
main :: IO () main :: IO ()
main = do main = do