Improve IO in Lib

src/Day5/Shared.hs

@@ -30,7 +30,7 @@ data Operation = Operation
 type Content = Char
 newtype Stack = Stack [Content] deriving (Show, Eq)
 
-content :: Stack  -> [Content]
+content :: Stack -> [Content]
 content (Stack c) = c
 
 instance Semigroup Stack where

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

@@ -1,7 +1,7 @@
 module Lib
     ( someFunc
     ) where
-      
+
 import Day1
 import Day2
 import Day3
@@ -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
   
-