nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fixed small errors

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Handler/Upload.hs
View file

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

2
config/routes
View file

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