Created a route to fetch recent modifications as a csv to allow creating clients

2025-07-03 09:42:31 +01:00 · 2025-07-03 09:42:31 +01:00 · 1e661031fb
commit 1e661031fb
parent de60936cd2
8 changed files with 71 additions and 11 deletions
--- a/src/Handler/Todolist.hs
+++ b/src/Handler/Todolist.hs
@ -16,7 +16,8 @@ postAddTodolistR :: GroupId -> Handler Html
 postAddTodolistR groupId = do
        list <- runInputPost $ ireq textField "list"
        -- TODO: in a newer version, put insertUnique_
-        _ <- dbIfAuth groupId (insertUnique $ Todolist groupId list)
+        currentTime <- liftIO getCurrentTime
+        _ <- dbIfAuth groupId (insertUnique $ Todolist groupId list currentTime)
        redirect $ TodolistR groupId

 -- TODO: move this to a new handler file