Add footer to result table

app/Main.hs

@@ -34,6 +34,7 @@ main :: IO ()
 main =
     printHeader
         >> getArgs
-        >>= \case
+        >>= (\case
             ["all"] -> runAll solutions
-            _ -> runAll [last solutions]
+            _ -> runAll [last solutions])
+        >> printFooter

src/Lib.hs

@@ -6,10 +6,11 @@ module Lib (
     days,
     printDR,
     printHeader,
+    printFooter,
 ) where
 
 import Common (Day (..), DayResult)
-import Print (printDR, printHeader)
+import Print
 
 import Days.D01 qualified as D01
 import Days.D02 qualified as D02

src/Print.hs

@@ -6,6 +6,9 @@ import Text.Printf (printf)
 printHeader :: IO ()
 printHeader = putStrLn "[ Day ]------(1)-----+------(2)-----"
 
+printFooter :: IO ()
+printFooter = putStrLn "[-----]--------------+--------------"
+
 printDR :: Int -> DayResult -> IO ()
 printDR day (Left errorString) = printf "[  %2d ] ====== PARSER ERROR =======\n%s" day errorString
 printDR day (Right (sol1, sol2)) =