diff --git a/src/Day5/Shared.hs b/src/Day5/Shared.hs
index e0dd6bf..66b5cb8 100644
--- a/src/Day5/Shared.hs
+++ b/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
diff --git a/src/Day7/Parser.hs b/src/Day7/Parser.hs
index 56d1379..37c6c20 100644
--- a/src/Day7/Parser.hs
+++ b/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
diff --git a/src/Lib.hs b/src/Lib.hs
index bc04538..730a00d 100644
--- a/src/Lib.hs
+++ b/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
 
-someFunc :: IO ()
-someFunc = do
-  day1
-  putStrLn "-----------"
-  day2
-  putStrLn "-----------"
-  day3
-  putStrLn "-----------"
-  day4
-  putStrLn "-----------"
-  day5
-  putStrLn "-----------"
-  day6
-  putStrLn "-----------"
-  day7
-  putStrLn "-----------"
-  day8
-  
+days :: [IO ()]
+days = [day1, day2, day3, day4, day5, day6, day7, day8]
 
+sep :: IO ()
+sep = putStrLn "---------"
+
+someFunc :: IO ()
+someFunc = mapM_ (>> sep) days
+