eidolon/Helper.hs
2014-08-14 00:52:57 +02:00

13 lines
241 B
Haskell

module Helper
( getUserIdFromText
)
where
import Prelude
import Data.Text
import Database.Persist.Types
getUserIdFromText :: Text -> PersistValue
getUserIdFromText tempUserId =
PersistInt64 $ fromIntegral $ read $ unpack tempUserId