selectSPJ :: MonadIO m => ReaderT SqlBackend m [Entity User] selectSPJ = selectList [UserName ==. "SPJ" ] []The above query when applied on dataset-1, will produce this:
+-----+-----+-----+ |id |name |age | +-----+-----+-----+ |1 |SPJ |40 | +-----+-----+-----+
query :: UserId -> SqlPersistT IO [Entity User] query userId = select $ do user <- from $ table @User where_ (user ^. UserId ==. val userId) pure userThis would generate the following SQL:
SELECT user.* FROM user WHERE user.id = ?