checking for album namesakes for user

Handler/NewAlbum.hs

@@ -48,6 +48,9 @@ postNewAlbumR = do
         albumForm userId
       case result of
         FormSuccess album -> do
+          namesakes <- runDB $ selectList [AlbumTitle ==. albumTitle album, albumOwner ==. userId] []
+          if null lamesakes
+          then do
             -- Put album in Database
             albumId <- runDB $ insert album
             -- add album reference in user
@@ -59,7 +62,10 @@ postNewAlbumR = do
             liftIO $ createDirectory $ "static" </> "data" </> unpack (extractKey userId) </> unpack (extractKey albumId)
             -- outro
             setMessage "Album successfully created"
-          redirect $ ProfileR userId
+            redirect $ AlbumR albumId
+          else do
+            setMessage $ "You already have an album named " ++ albumTitle album
+            redirect $ AlbumR $ entityKey $ head namesakes
         _ -> do
           setMessage "There was an error creating the album"
           redirect NewAlbumR