Stuce/sTodo
1
0
Fork 0
Code Issues Pull requests Projects Releases 3 Packages Wiki Activity Actions

removed middleware

Browse source
This commit is contained in:
Stuce 2025-07-02 17:13:50 +01:00
parent 6b8781760c
commit c63309b9e8
4 changed files with 8 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Handler/Group.hs
View file

@ -16,7 +16,6 @@ getGroupR :: Handler Html
getGroupR = do
userId <- getUserId
groups <- getGroups userId
mToken <- fmap reqToken getRequest
defaultLayout $ do
setTitle "Groups"
[whamlet|
@ -27,8 +26,6 @@ getGroupR = do
<a href=@{TodolistR $ entityKey group}>#{(groupGroup . entityVal) group}
<form action=@{AddGroupR} method="post">
<input type="text" name="group" placeholder="new group">
$maybe token <- mToken
<input type="hidden" name="_token" value="#{token}">
<button type="submit">add
<a href=@{EditGroupR}>Edit
|]
@ -48,7 +45,6 @@ getEditGroupR :: Handler Html
getEditGroupR = do
userId <- getUserId
groups <- getGroups userId
mToken <- fmap reqToken getRequest
defaultLayout $ do
let a e = pack $ show $ fromSqlKey $ entityKey e ::Text
setTitle "Groups"
@ -59,8 +55,6 @@ getEditGroupR = do
<li>
<input type="checkbox" name="ids" value="#{a group}">
<a href="">#{(groupGroup . entityVal) group}
$maybe token <- mToken
<input type="hidden" name="_token" value="#{token}">
<button type=submit>Delete selected
<a href=@{GroupR}>Back
|]