2014-08-14 00:49:37 +02:00
|
|
|
module Handler.NewAlbum where
|
|
|
|
|
|
|
|
import Import
|
2014-08-14 02:26:02 +02:00
|
|
|
import Data.Text
|
|
|
|
import System.Directory
|
|
|
|
import System.FilePath
|
2014-08-14 00:49:37 +02:00
|
|
|
|
|
|
|
getNewAlbumR :: Handler Html
|
2014-08-14 02:26:02 +02:00
|
|
|
getNewAlbumR = do
|
|
|
|
msu <- lookupSession "userId"
|
|
|
|
case msu of
|
|
|
|
Just tempUserId -> do
|
|
|
|
userId <- lift $ pure $ getUserIdFromText tempUserId
|
2014-08-15 14:50:03 +02:00
|
|
|
(albumWidget, enctype) <- generateFormPost (albumForm userId)
|
2015-01-11 08:06:48 +01:00
|
|
|
formLayout $ do
|
2014-09-24 23:03:18 +02:00
|
|
|
setTitle "Eidolon :: Create new Album"
|
2014-08-14 02:26:02 +02:00
|
|
|
$(widgetFile "newAlbum")
|
|
|
|
Nothing -> do
|
2014-08-26 04:37:56 +02:00
|
|
|
setMessage "You need to be logged in"
|
2014-08-14 02:26:02 +02:00
|
|
|
redirect $ LoginR
|
2014-08-14 00:49:37 +02:00
|
|
|
|
|
|
|
postNewAlbumR :: Handler Html
|
2014-08-14 02:26:02 +02:00
|
|
|
postNewAlbumR = do
|
|
|
|
msu <- lookupSession "userId"
|
|
|
|
case msu of
|
|
|
|
Just tempUserId -> do
|
2014-09-07 07:03:06 +02:00
|
|
|
userId <- return $ getUserIdFromText tempUserId
|
2014-12-28 07:12:25 +01:00
|
|
|
((result, _), _) <- runFormPost (albumForm userId)
|
2014-08-14 02:26:02 +02:00
|
|
|
case result of
|
|
|
|
FormSuccess album -> do
|
2014-09-07 06:57:53 +02:00
|
|
|
-- Put album in Database
|
2014-08-14 02:26:02 +02:00
|
|
|
albumId <- runDB $ insert album
|
2014-09-07 06:57:53 +02:00
|
|
|
-- add album reference in user
|
|
|
|
user <- runDB $ getJust userId
|
|
|
|
albumList <- return $ userAlbums user
|
|
|
|
newAlbumList <- return $ albumId : albumList
|
|
|
|
runDB $ update userId [UserAlbums =. newAlbumList]
|
|
|
|
-- create folder
|
2014-08-18 03:09:03 +02:00
|
|
|
liftIO $ createDirectory $ "static" </> "data" </> (unpack $ extractKey userId) </> (unpack $ extractKey albumId)
|
2014-09-07 06:57:53 +02:00
|
|
|
-- outro
|
2014-08-15 15:47:16 +02:00
|
|
|
setMessage $ "Album successfully created"
|
2014-08-15 14:50:03 +02:00
|
|
|
redirect $ ProfileR userId
|
2014-09-07 07:03:06 +02:00
|
|
|
_ -> do
|
|
|
|
setMessage "There was an error creating the album"
|
|
|
|
redirect $ NewAlbumR
|
|
|
|
Nothing -> do
|
|
|
|
setMessage "You must be logged in to create albums"
|
|
|
|
redirect $ LoginR
|
2014-08-14 02:26:02 +02:00
|
|
|
|
|
|
|
albumForm :: UserId -> Form Album
|
|
|
|
albumForm userId = renderDivs $ Album
|
|
|
|
<$> areq textField "Title" Nothing
|
|
|
|
<*> pure userId
|
|
|
|
<*> pure []
|
2014-12-06 04:39:24 +01:00
|
|
|
<*> pure []
|
2014-08-15 13:24:14 +02:00
|
|
|
<*> pure Nothing
|
2015-01-11 08:06:48 +01:00
|
|
|
<*> pure 230
|