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

coursework/part1/app/Main.hs

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