diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index ce423f932d9f..d376f9ef0995 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -146,7 +146,7 @@ postEntry acid = do nMtext <- lookText' "mtext" nEntry <- Entry <$> pure eId <*> getLang lang - <*> lookText' "author" + <*> readCookieValue "sUser" <*> lookText' "title" <*> pure (entryEscape nBtext) <*> pure (entryEscape nMtext) |