diff options
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 () |