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