From 8696a185a7157a97145e0b23075af6708a67eff9 Mon Sep 17 00:00:00 2001 From: Aadhavan Srinivasan Date: Tue, 27 May 2025 08:55:10 -0400 Subject: [PATCH] Rewrote readLines function to be more concise --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 83ff5b8..2c02db0 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -15,7 +15,7 @@ readLinesHelper xs = do readLinesHelper xs' readLines :: IO [String] -readLines = fmap reverse $ readLinesHelper [] +readLines = reverse <$> readLinesHelper [] main :: IO () main = do