From cb54edf1c861da6e234e8293237b3f45440f10c0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 21 Jul 2016 16:38:08 +0200 Subject: [PATCH] set status to 404 when user or beverage unknown --- Handler/Common.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/Common.hs b/Handler/Common.hs index 2d83312..ca86982 100644 --- a/Handler/Common.hs +++ b/Handler/Common.hs @@ -234,7 +234,7 @@ isUser uId route = do case mUser of Nothing -> do setMessageI MsgUserUnknown - redirect route + redirectWith status404 route Just user -> return user @@ -244,6 +244,6 @@ isBeverage bId route = do case mBev of Nothing -> do setMessageI MsgItemUnknown - redirect route + redirectWith status404 route Just bev -> return bev