diff --git a/hs/src/Aoc/Day.hs b/hs/src/Aoc/Day.hs
index 229345c..90d9641 100644
--- a/hs/src/Aoc/Day.hs
+++ b/hs/src/Aoc/Day.hs
@@ -4,7 +4,7 @@ module Aoc.Day
   , dayFile
   , dayString
   , dayText
-  , dayParser
+  , dayParse
   ) where
 
 import           Control.Monad
@@ -31,8 +31,8 @@ dayString name f = dayFile name $ f <=< readFile
 dayText :: String -> (T.Text -> IO ()) -> Day
 dayText name f = dayFile name $ f <=< T.readFile
 
-dayParser :: String -> Parser a -> (a -> IO ()) -> Day
-dayParser name p f = dayFile name $ \path -> do
+dayParse :: String -> Parser a -> (a -> IO ()) -> Day
+dayParse name p f = dayFile name $ \path -> do
   text <- T.readFile path
   case parse p path text of
     Right a -> f a
diff --git a/hs/src/Aoc/Y2020/D01.hs b/hs/src/Aoc/Y2020/D01.hs
index 41842ec..769bd8d 100644
--- a/hs/src/Aoc/Y2020/D01.hs
+++ b/hs/src/Aoc/Y2020/D01.hs
@@ -36,4 +36,4 @@ solver values = do
   putStrLn $ show y1 ++ " * " ++ show y2 ++ " * " ++ show y3 ++ " = " ++ show (y1 * y2 * y3)
 
 day :: Day
-day = dayParser "2020_01" parser solver
+day = dayParse "2020_01" parser solver