diff --git a/app/Main.hs b/app/Main.hs index dea427c..c46d5d9 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -77,6 +77,7 @@ onDiscordStart conf eventSystem = do let reminddata :: [Remind] reminddata = map read $ lines remindfile now <- liftIO getCurrentTime + liftIO $ removeFile "reminds.data" mapM_ (\r -> do withRunInIO $ \runInIO -> if now > rmdWhen r then @@ -89,6 +90,8 @@ onDiscordStart conf eventSystem = do `T.append` "> **Reminder**\n" `T.append` rmdWhat r ) + appendFile "reminds.data" $ show r + return () ) else