git.iko.soy/project-m36
on master help sign in
fix SimpleClient example due to extra RelationVariable argument
40fdd7fAgentM
examples/SimpleClient.hs+1−1
compare with master
unifiedsplit
@@ -30,7 +30,7 @@ main = do
30
30
31 --6. execute a relational algebra query
31 --6. execute a relational algebra query
32 let restrictionPredicate = AttributeEqualityPredicate "name" (NakedAtomExpr (TextAtom "Steve"))
32 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" ()))
34 case eRel of
34 case eRel of
35 Left err -> putStrLn (show err)
35 Left err -> putStrLn (show err)
36 Right rel -> putStrLn (show $ showRelation rel)
36 Right rel -> putStrLn (show $ showRelation rel)