eidolon/Helper.hs

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 -> UserId
getUserIdFromText tempUserId =
  PersistInt64 $ fromIntegral $ read $ unpack tempUserId

extractKey :: KeyBackend backend entity -> Text
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