2014-08-14 00:52:57 +02:00
|
|
|
module Helper
|
|
|
|
( getUserIdFromText
|
2014-08-14 02:25:18 +02:00
|
|
|
, extractKey
|
2014-08-15 15:41:25 +02:00
|
|
|
-- , getUserNameById
|
2014-08-14 00:52:57 +02:00
|
|
|
)
|
|
|
|
where
|
|
|
|
|
|
|
|
import Prelude
|
2014-08-15 13:24:14 +02:00
|
|
|
import Model
|
|
|
|
import Control.Applicative
|
|
|
|
import Control.Monad.Trans.Class
|
2014-08-14 00:52:57 +02:00
|
|
|
import Data.Text
|
2014-08-15 13:24:14 +02:00
|
|
|
import Data.Maybe
|
|
|
|
import Database.Persist
|
2014-08-14 00:52:57 +02:00
|
|
|
import Database.Persist.Types
|
2014-08-15 13:24:14 +02:00
|
|
|
import System.FilePath
|
|
|
|
import Yesod.Persist.Core
|
|
|
|
import Yesod.Core.Types
|
2014-08-14 00:52:57 +02:00
|
|
|
|
2014-08-15 13:24:14 +02:00
|
|
|
getUserIdFromText :: Text -> UserId
|
2014-08-14 00:52:57 +02:00
|
|
|
getUserIdFromText tempUserId =
|
2014-08-15 14:50:03 +02:00
|
|
|
Key $ PersistInt64 $ fromIntegral $ read $ unpack tempUserId
|
2014-08-14 02:25:18 +02:00
|
|
|
|
|
|
|
extractKey :: KeyBackend backend entity -> Text
|
|
|
|
extractKey = extractKey' . unKey
|
|
|
|
where
|
|
|
|
extractKey' (PersistInt64 k) = pack $ show k
|
|
|
|
extractKey' _ = ""
|
2014-08-15 13:24:14 +02:00
|
|
|
|
2014-08-15 15:41:25 +02:00
|
|
|
--getUserNameById :: UserId -> Text
|
|
|
|
--getUserNameById userId =
|
2014-08-15 13:24:14 +02:00
|
|
|
-- let
|
2014-08-15 15:41:25 +02:00
|
|
|
-- user = runDB $ getJust $ userId
|
2014-08-15 13:24:14 +02:00
|
|
|
-- in
|
2014-08-15 15:41:25 +02:00
|
|
|
-- userName user
|