fix SimpleClient example due to extra RelationVariable argument
commit40fdd7f91948a150efaf6636484bc3d4eb7b5d84
authorAgentM <agentm@themactionfaction.com>
dateWed 7 Sep 2016, 17:46 (10 years ago)
parent3069698
examples/SimpleClient.hs+1−1
@@ -30,7 +30,7 @@ main = do
3030
3131 --6. execute a relational algebra query
3232 let restrictionPredicate = AttributeEqualityPredicate "name" (NakedAtomExpr (TextAtom "Steve"))
33− eRel <- executeRelationalExpr sessionId conn (Restrict restrictionPredicate (RelationVariable "person"))
33+ eRel <- executeRelationalExpr sessionId conn (Restrict restrictionPredicate (RelationVariable "person" ()))
3434 case eRel of
3535 Left err -> putStrLn (show err)
3636 Right rel -> putStrLn (show $ showRelation rel)