Actualy fix stuff this time

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