[hs] Move parsing stuff to Aoc.Parse

hs/src/Aoc/Day.hs

@@ -4,17 +4,17 @@ module Aoc.Day
   , dayFile
   , dayString
   , dayText
-  , Parser
   , dayParser
   ) where
 
 import           Control.Monad
-import           Data.Void
 
 import qualified Data.Text       as T
 import qualified Data.Text.IO    as T
 import           Text.Megaparsec
 
+import           Aoc.Parse
+
 data Day
   = DayPure String (IO ())
   | DayFile String (FilePath -> IO ())
@@ -31,8 +31,6 @@ dayString name f = dayFile name $ f <=< readFile
 dayText :: String -> (T.Text -> IO ()) -> Day
 dayText name f = dayFile name $ f <=< T.readFile
 
-type Parser = Parsec Void T.Text
-
 dayParser :: String -> Parser a -> (a -> IO ()) -> Day
 dayParser name p f = dayFile name $ \path -> do
   text <- T.readFile path