more cleanup

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]

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