Drezil/markdown2reminder
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

removed debug output

Browse Source
This commit is contained in:
Nicole Dresselhaus 2017-02-10 20:38:18 +01:00
parent e4f51183fb
commit 096c15cdcf
Signed by: Drezil
GPG Key ID: 057D94F356F41E25
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -5,7 +5,6 @@ import Data.Time.Clock
import Data.Time.Calendar import Data.Time.Calendar
import System.Environment import System.Environment
import Data.Monoid import Data.Monoid
import Debug.Trace
import Network.Mail.Mime hiding (mailFrom, mailTo) import Network.Mail.Mime hiding (mailFrom, mailTo)
import Options.Applicative import Options.Applicative
@ -58,7 +57,7 @@ main = do
filterToday :: Day -> (Day, Mail) -> Bool 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 where
(_,m1,day1) = toGregorian d (_,m1,day1) = toGregorian d
(_,m2,day2) = toGregorian d2 (_,m2,day2) = toGregorian d2

1
src/Lib.hs
View File

@ -10,7 +10,6 @@ import Data.Time.Calendar (Day, fromGregorian)
import Data.Time.Format (parseTimeM, defaultTimeLocale) import Data.Time.Format (parseTimeM, defaultTimeLocale)
import Data.Monoid import Data.Monoid
import Data.Maybe import Data.Maybe
import Debug.Trace
import Network.Mail.Mime import Network.Mail.Mime
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy as TL