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