diff --git a/Handler/Select.hs b/Handler/Select.hs index e1a81ed..bee9579 100644 --- a/Handler/Select.hs +++ b/Handler/Select.hs @@ -18,9 +18,6 @@ getSelectR uId = do setMessage "Benutzer unbekannt" redirect $ HomeR -postSelectR :: UserId -> Handler Html -postSelectR = error "Not yet implemented: postSelectR" - getSelectCashR :: Handler Html getSelectCashR = do beverages <- runDB $ selectList [BeverageAmount >=. 0] [Desc BeverageIdent] diff --git a/config/routes b/config/routes index b766660..8428d91 100644 --- a/config/routes +++ b/config/routes @@ -6,7 +6,7 @@ / HomeR GET POST /reactivate ReactivateR GET /user/#UserId/reactivate UserReactivateR GET -/user/#UserId SelectR GET POST +/user/#UserId SelectR GET !/user/cash SelectCashR GET /user/#UserId/recharge RechargeR GET POST /newuser NewUserR GET POST