Rewrote readLines function to be more concise
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user