Improve IO in Lib

src/Day7/Parser.hs

@@ -59,7 +59,7 @@ cd = do
   _ <- string "cd "
   name <- many $ noneOf "\n"
   _ <- char '\n'
-  return (nameToDir name)
+  return $ nameToDir name
 
 nameToDir :: DirName -> TerminalCommand
 nameToDir "/" = Root

src/Lib.hs

@@ -11,22 +11,12 @@ import Day6
 import Day7
 import Day8
 
+days :: [IO ()]
+days = [day1, day2, day3, day4, day5, day6, day7, day8]
+
+sep :: IO ()
+sep = putStrLn "---------"
+
 someFunc :: IO ()
-someFunc = do
-  day1
-  putStrLn "-----------"
-  day2
-  putStrLn "-----------"
-  day3
-  putStrLn "-----------"
-  day4
-  putStrLn "-----------"
-  day5
-  putStrLn "-----------"
-  day6
-  putStrLn "-----------"
-  day7
-  putStrLn "-----------"
-  day8
-  
+someFunc = mapM_ (>> sep) days