Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data Entity = Entity
- { userId :: UUID
- , settings :: A.Value
- } deriving (Show, Eq)
- instance FromRow Entity where
- fromRow = Entity <$> field <*> field
- getRaw :: IO [(UUID, A.Value)]
- getRaw = do
- let p = fromJust $ ext ^. pool
- withResource p $ \conn ->
- query conn q ()
- where q = "SELECT user_uuid, settings FROM user_settings;"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement