Первая версия Main, но пока с do-нотацией

coursework/part1/.gitignore

@@ -1,3 +1,4 @@
 .stack-work/
 *~
-!task_part1.txt
+!task_part1.txt
+!expressions.txt

coursework/part1/app/Main.hs

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

coursework/part1/expressions.txt

@@ -0,0 +1,6 @@
+100 * 100
+40 + 30
+50 / 2
+5 / 2
+62 - 32
+78 - 500

coursework/part1/src/Lib.hs

@@ -96,7 +96,7 @@ processExpression s = case runParser expression s of
             show a ++ " " ++ 
             operationToString op ++ " " ++ 
             show b ++ " = " ++ 
-            show (calculateExpression (a, op, b))
+            show (calculateExpression (a, op, b)) ++ "\n"
         _ -> err
     where
         err = error $ "Unable to parse the following expression: \"" ++ s ++ "\""