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