diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-12 00:03:16 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-12 00:03:16 +0100 |
| commit | 55f736c1064377eea8d07344378b125d9ccdd038 (patch) | |
| tree | 93e0e60c471f24fea66bb226e2c755c6e03fe897 | |
| parent | 84e6bb9cd5dbca0efa37fcbafe3e1107a206f460 (diff) | |
| download | nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar.gz nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar.bz2 nixos-55f736c1064377eea8d07344378b125d9ccdd038.tar.xz nixos-55f736c1064377eea8d07344378b125d9ccdd038.zip | |
Redirect /#itemId GET to /#itemId/update
| -rwxr-xr-x | bragi/bar.hs | 1 |
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 | ||
| 429 | patchItemR :: ItemId -> Handler Value | 430 | patchItemR :: ItemId -> Handler Value |
| 430 | patchItemR itemId = do | 431 | patchItemR itemId = do |