fixed small errors

Handler/Upload.hs

@@ -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

config/routes

@@ -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