eidolon/Helper.hs
2014-08-14 02:25:18 +02:00

20 lines
418 B
Haskell

module Helper
( getUserIdFromText
, extractKey
)
where
import Prelude
import Data.Text
import Database.Persist.Types
getUserIdFromText :: Text -> PersistValue
getUserIdFromText tempUserId =
PersistInt64 $ fromIntegral $ read $ unpack tempUserId
extractKey :: KeyBackend backend entity -> Text
extractKey = extractKey' . unKey
where
extractKey' (PersistInt64 k) = pack $ show k
extractKey' _ = ""