From b71a3973f79dddf25a6fd05d7c48cde7d2fdc1f9 Mon Sep 17 00:00:00 2001
From: Antoine COMBET <antoine.combet@etu.univ-lyon1.fr>
Date: Thu, 3 Mar 2022 23:13:00 +0100
Subject: [PATCH] Actualy fix stuff this time

---
 app/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

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