From a992307327599f0b61651b2d3b606d35f4da5450 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 15 Aug 2014 13:24:14 +0200 Subject: [PATCH] shit doesn't work --- Foundation.hs | 1 + Handler/NewAlbum.hs | 1 + Helper.hs | 19 ++++++++++++++++++- templates/default-layout.hamlet | 2 +- 4 files changed, 21 insertions(+), 2 deletions(-) diff --git a/Foundation.hs b/Foundation.hs index 12e32a3..83ff501 100644 --- a/Foundation.hs +++ b/Foundation.hs @@ -21,6 +21,7 @@ import Yesod.Core.Types (Logger) -- costom imports import Data.Maybe import Data.Text +import Helper -- | The site argument for your application. This can be a good place to -- keep settings and values requiring initialization before your application diff --git a/Handler/NewAlbum.hs b/Handler/NewAlbum.hs index eda619b..44b1a29 100644 --- a/Handler/NewAlbum.hs +++ b/Handler/NewAlbum.hs @@ -37,3 +37,4 @@ albumForm userId = renderDivs $ Album <$> areq textField "Title" Nothing <*> pure userId <*> pure [] + <*> pure Nothing diff --git a/Helper.hs b/Helper.hs index ce6316a..c296a21 100644 --- a/Helper.hs +++ b/Helper.hs @@ -1,14 +1,23 @@ module Helper ( getUserIdFromText , extractKey +-- , getUserName ) where import Prelude +import Model +import Control.Applicative +import Control.Monad.Trans.Class import Data.Text +import Data.Maybe +import Database.Persist import Database.Persist.Types +import System.FilePath +import Yesod.Persist.Core +import Yesod.Core.Types -getUserIdFromText :: Text -> PersistValue +getUserIdFromText :: Text -> UserId getUserIdFromText tempUserId = PersistInt64 $ fromIntegral $ read $ unpack tempUserId @@ -17,3 +26,11 @@ extractKey = extractKey' . unKey where extractKey' (PersistInt64 k) = pack $ show k extractKey' _ = "" + +--getUserName :: Text -> User +--getUserName textId = +-- let +-- userId = getUserIdFromText textId +-- user = get $ userId +-- in +-- show user diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet index 1942b24..2d11200 100644 --- a/templates/default-layout.hamlet +++ b/templates/default-layout.hamlet @@ -2,7 +2,7 @@