diff options
| author | Vincent Ambo <tazjin@gmail.com> | 2015-11-21T18·05+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@gmail.com> | 2015-11-21T18·05+0100 |
| commit | d7d428d597ebede6d7d423abcecb930cdca8a88c (patch) | |
| tree | 68d61a6bb7dae4fd9f3f2597b899ee58f2dd0a00 /src/Server.hs | |
| parent | a68d6cfa31ca9fa4e2773c5f3e375c21079c358b (diff) | |
[locale/blog] Remove other unused code
Diffstat (limited to 'src/Server.hs')
| -rw-r--r-- | src/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Server.hs b/src/Server.hs index df8916d85d3b..373bb7d6b51f 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -149,7 +149,7 @@ updateEntry acid entryId = do , btext = nBtext , mtext = nMtext} update' acid (UpdateEntry newEntry) - seeOther (concat $ intersperse' "/" [show $ lang entry, show entryId]) + seeOther (concat $ ["/", show $ lang entry, "/", show entryId]) (toResponse ()) guardSession :: AcidState Blog -> ServerPartT IO () |