From 096c15cdcf64cc5dc7668c15460a4061e8adbd88 Mon Sep 17 00:00:00 2001 From: Stefan Dresselhaus Date: Fri, 10 Feb 2017 20:38:18 +0100 Subject: [PATCH] removed debug output --- app/Main.hs | 3 +-- src/Lib.hs | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 5fa1639..d7cae86 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -5,7 +5,6 @@ import Data.Time.Clock import Data.Time.Calendar import System.Environment import Data.Monoid -import Debug.Trace import Network.Mail.Mime hiding (mailFrom, mailTo) import Options.Applicative @@ -58,7 +57,7 @@ main = do filterToday :: Day -> (Day, Mail) -> Bool -filterToday d (d2,_) = trace (show d <> "==" <> show d2 <> "?") day1 == day2 && m1 == m2 +filterToday d (d2,_) = day1 == day2 && m1 == m2 where (_,m1,day1) = toGregorian d (_,m2,day2) = toGregorian d2 diff --git a/src/Lib.hs b/src/Lib.hs index 6d71454..118ac86 100644 --- a/src/Lib.hs +++ b/src/Lib.hs @@ -10,7 +10,6 @@ import Data.Time.Calendar (Day, fromGregorian) import Data.Time.Format (parseTimeM, defaultTimeLocale) import Data.Monoid import Data.Maybe -import Debug.Trace import Network.Mail.Mime import qualified Data.Text as T import qualified Data.Text.Lazy as TL