nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

more cleanup

Browse source
This commit is contained in:
nek0 2015-04-04 08:19:00 +02:00
parent 2ab5f9b4c1
commit 8e8691d357
2 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Select.hs
View file

@ -18,9 +18,6 @@ getSelectR uId = do
setMessage "Benutzer unbekannt" setMessage "Benutzer unbekannt"
redirect $ HomeR redirect $ HomeR
postSelectR :: UserId -> Handler Html
postSelectR = error "Not yet implemented: postSelectR"
getSelectCashR :: Handler Html getSelectCashR :: Handler Html
getSelectCashR = do getSelectCashR = do
beverages <- runDB $ selectList [BeverageAmount >=. 0] [Desc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount >=. 0] [Desc BeverageIdent]

2
config/routes
View file

@ -6,7 +6,7 @@
/ HomeR GET POST / HomeR GET POST
/reactivate ReactivateR GET /reactivate ReactivateR GET
/user/#UserId/reactivate UserReactivateR GET /user/#UserId/reactivate UserReactivateR GET
/user/#UserId SelectR GET POST /user/#UserId SelectR GET
!/user/cash SelectCashR GET !/user/cash SelectCashR GET
/user/#UserId/recharge RechargeR GET POST /user/#UserId/recharge RechargeR GET POST
/newuser NewUserR GET POST /newuser NewUserR GET POST