diff --git a/Handler/AlbumSettings.hs b/Handler/AlbumSettings.hs index 84c024e..03e8f96 100644 --- a/Handler/AlbumSettings.hs +++ b/Handler/AlbumSettings.hs @@ -2,6 +2,7 @@ module Handler.AlbumSettings where import Import import qualified Data.Text as T +import Data.Maybe import System.Directory import System.FilePath import qualified Data.List as L @@ -84,7 +85,7 @@ postAlbumSettingsR albumId = do False -> do return [()] -- nothing to do here - width <- getThumbWidth $ albumSamplePic temp + width <- getThumbWidth $ Just $ L.tail $ fromMaybe ['a'] $ albumSamplePic temp _ <- runDB $ update albumId [ AlbumTitle =. albumTitle temp , AlbumShares =. newShares diff --git a/Handler/ProfileDelete.hs b/Handler/ProfileDelete.hs index 946575d..5c8d9e0 100644 --- a/Handler/ProfileDelete.hs +++ b/Handler/ProfileDelete.hs @@ -12,7 +12,7 @@ getProfileDeleteR userId = do checkRes <- profileCheck userId case checkRes of Right user -> do - defaultLayout $ do + formLayout $ do setTitle "Eidolon :: Delete user profile" $(widgetFile "profileDelete") Left (errorMsg, route) -> do diff --git a/Handler/ProfileSettings.hs b/Handler/ProfileSettings.hs index 0a749ca..d0e6a36 100644 --- a/Handler/ProfileSettings.hs +++ b/Handler/ProfileSettings.hs @@ -9,7 +9,7 @@ getProfileSettingsR userId = do case checkRes of Right user -> do (profileSettingsWidget, enctype) <- generateFormPost $ profileSettingsForm user - defaultLayout $ do + formLayout $ do setTitle "Eidolon :: Profile settings" $(widgetFile "profileSettings") Left (errorMsg, route) -> do diff --git a/templates/home.hamlet b/templates/home.hamlet index 790253f..2f1466f 100644 --- a/templates/home.hamlet +++ b/templates/home.hamlet @@ -10,8 +10,3 @@ $forall (Entity mediumId medium) <- recentMedia
#{mediumTitle medium} -