From: Neil Smith Date: Wed, 5 Dec 2018 10:46:24 +0000 (+0000) Subject: Tidyied slightly X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-18.git;a=commitdiff_plain;h=24d2d9c7a188ece64f2e03549d860b57f30ed09b Tidyied slightly --- diff --git a/src/advent04/advent04.hs b/src/advent04/advent04.hs index d1edcba..6739337 100644 --- a/src/advent04/advent04.hs +++ b/src/advent04/advent04.hs @@ -1,7 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} import Data.List --- import Data.Tuple (swap) import Data.Text (Text) import qualified Data.Text.IO as TIO @@ -14,7 +13,6 @@ import qualified Text.Megaparsec.Char.Lexer as L import qualified Control.Applicative as CA import Data.Time --- import Data.Time.LocalTime import qualified Data.Set as S import qualified Data.Map.Strict as M @@ -35,7 +33,6 @@ type SleepFrequency = M.Map Int Int -- key = minute, value = times spent asleep type GuardSleepFrequency = M.Map (GuardId, Int) Int -- key = (guardID, minute), value = times spent asleep - main :: IO () main = do text <- TIO.readFile "data/advent04.txt"