diff --git a/Handler/Barcode.hs b/Handler/Barcode.hs index 47d928a..7786ef8 100644 --- a/Handler/Barcode.hs +++ b/Handler/Barcode.hs @@ -6,8 +6,8 @@ import qualified Data.Text as T import Text.Blaze.Internal import Text.Shakespeare.Text -postHomeBarcodeR :: Handler Html -postHomeBarcodeR = return mempty +getHomeBarcodeR :: Handler Html +getHomeBarcodeR = return mempty -postSelectBarcodeR :: UserId -> Handler Html -postSelectBarcodeR uId = return mempty +getSelectBarcodeR :: UserId -> Handler Html +getSelectBarcodeR uId = return mempty diff --git a/config/routes b/config/routes index 4fa5645..e52e1fa 100644 --- a/config/routes +++ b/config/routes @@ -30,5 +30,5 @@ /avatar/#AvatarId/modify ModifyAvatarR GET POST /avatar/#AvatarId/delete AvatarDeleteR GET /newavatar NewAvatarR GET POST -/barcode HomeBarcodeR POST -/user/#UserId/barcode SelectBarcodeR POST +/barcode HomeBarcodeR GET +/user/#UserId/barcode SelectBarcodeR GET diff --git a/templates/home.hamlet b/templates/home.hamlet index d08643b..3920a69 100644 --- a/templates/home.hamlet +++ b/templates/home.hamlet @@ -24,5 +24,5 @@ $forall (Entity uId user) <- users

_{MsgReactivateOldUser} -

+ diff --git a/templates/select.hamlet b/templates/select.hamlet index 0779342..0b33a60 100644 --- a/templates/select.hamlet +++ b/templates/select.hamlet @@ -26,5 +26,5 @@ $forall (Entity bId bev) <- beverages

#{beverageIdent bev} - +