Fixed input imports due to 0 prefix for days 01 to 09.

01.hs

@@ -8,6 +8,6 @@ halfwaySum ns =
 
 main :: IO ()
 main = do 
-    nums <- fmap (map (read . pure)) $ readFile "1.txt"
+    nums <- fmap (map (read . pure)) $ readFile "01.txt"
     print $ circularSum nums
     print $ halfwaySum nums

02.hs

@@ -10,6 +10,6 @@ divline ns =
 
 main :: IO ()
 main = do
-    grid <- fmap (map (map read . words) . lines) $ readFile "2.txt"
+    grid <- fmap (map (map read . words) . lines) $ readFile "02.txt"
     print $ sum . map (\line -> maximum line - minimum line) $ grid
     print $ sum . map divline $ grid

04.hs

@@ -6,7 +6,7 @@ isPassphraseValid ws = sort ws == (toAscList . fromList) ws
 
 main :: IO ()
 main = do
-    passphrases <- fmap (map words . lines) $ readFile "4.txt"
+    passphrases <- fmap (map words . lines) $ readFile "04.txt"
     let valids      = sum $ map (fromEnum . isPassphraseValid) passphrases
     let stillValids = sum $ map (fromEnum . isPassphraseValid . (map sort)) passphrases
     print $ valids

06.hs

@@ -33,5 +33,5 @@ cycles prevCount (prevBank, banks) =
 
 main :: IO ()
 main = do
-    bank <- fmap (fromList . map read . words) $ readFile "6.txt"
+    bank <- fmap (fromList . map read . words) $ readFile "06.txt"
     print $ cycles 0 (bank, empty)

07.hs

@@ -66,7 +66,7 @@ findBalanced (Node _ forest) =
         
 main :: IO ()
 main = do
-    programsList <- fmap (map parseLine . lines) $ readFile "7.txt"
+    programsList <- fmap (map parseLine . lines) $ readFile "07.txt"
     let programsMap  = fromList  programsList
         bottomName   = getBottom programsMap programsList
         balanced     = findBalanced . cumulate $ mapToTree programsMap bottomName

08.hs

@@ -38,7 +38,7 @@ executeInstruction m (I r v s f) =
 
 main :: IO ()
 main = do
-    input <- readFile "8.txt"
+    input <- readFile "08.txt"
     let maxima = map (maximum . elems) . tail . scanl executeInstruction empty . map parseLine . lines $ input
     print $ last maxima
     print $ maximum maxima

09.hs

@@ -12,4 +12,4 @@ scoreAndCount str =
 
 main :: IO ()
 main = do
-    readFile "9.txt" >>= print . scoreAndCount
+    readFile "09.txt" >>= print . scoreAndCount