From 8e8691d3574a50e6629eb8d5fdb7a30c62b6bb17 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 4 Apr 2015 08:19:00 +0200 Subject: [PATCH] more cleanup --- Handler/Select.hs | 3 --- config/routes | 2 +- 2 files changed, 1 insertion(+), 4 deletions(-) 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