Избавился от do

coursework/part1/app/Main.hs

@@ -3,10 +3,10 @@ module Main (main) where
 import Lib
 
 main :: IO ()
-main = do
-    putStrLn "Введите имя файла:"
-    fileName <- getLine
-    content <- readFile fileName
-    let expressions = lines content
+main =
+    putStrLn "Введите имя файла:" >>
+    getLine >>= \fileName ->
+    readFile fileName >>= \content ->
+    let expressions = lines content in
     putStrLn $ concatMap processExpression expressions