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;"
Comments