more cleanup

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

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]

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