fixed small errors

This commit is contained in:
nek0 2015-10-16 04:15:16 +02:00
parent 1e41b779bd
commit 4933d54aae
2 changed files with 4 additions and 4 deletions

View file

@ -189,13 +189,13 @@ getUploadR = do
if
I.null albums
then do
setMessage "Please create an album first"
redirect NewAlbumR
else do
(uploadWidget, enctype) <- generateFormPost (bulkUploadForm userId)
formLayout $ do
setTitle "Eidolon :: Upload Medium"
$(widgetFile "bulkUpload")
else do
setMessage "Please create an album first"
redirect NewAlbumR
Nothing -> do
setMessage "You need to be logged in"
redirect LoginR

View file

@ -58,7 +58,7 @@
/admin/comment AdminCommentR GET
/admin/comment/#CommentId AdminCommentDeleteR GET
/tag/#Text TagR GET
/tag/#Text TagR GET
/feed/root/atom.xml RootFeedAtomR GET
/feed/root/rss.xml RootFeedRssR GET