summaryrefslogtreecommitdiff
path: root/bragi
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2017-03-12 00:03:16 +0100
committerGregor Kleen <gkleen@yggdrasil.li>2017-03-12 00:03:16 +0100
commit55f736c1064377eea8d07344378b125d9ccdd038 (patch)
tree93e0e60c471f24fea66bb226e2c755c6e03fe897 /bragi
parent84e6bb9cd5dbca0efa37fcbafe3e1107a206f460 (diff)
downloadnixos-55f736c1064377eea8d07344378b125d9ccdd038.tar
nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar.gz
nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar.bz2
nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar.xz
nixos-55f736c1064377eea8d07344378b125d9ccdd038.zip
Redirect /#itemId GET to /#itemId/update
Diffstat (limited to 'bragi')
-rwxr-xr-xbragi/bar.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/bragi/bar.hs b/bragi/bar.hs
index 40548f37..df799326 100755
--- a/bragi/bar.hs
+++ b/bragi/bar.hs
@@ -425,6 +425,7 @@ getItemR itemId = do
425 425
426 selectRep $ do 426 selectRep $ do
427 provideJson entity 427 provideJson entity
428 provideRep (redirect $ UpdateItemR itemId :#: itemFragment itemId :: Handler Html)
428 429
429patchItemR :: ItemId -> Handler Value 430patchItemR :: ItemId -> Handler Value
430patchItemR itemId = do 431patchItemR itemId = do