64ae3e6 · project-m36 · git.iko.soy

git.iko.soy/project-m36

on master help sign in

fix printing of relation in SimpleClient example

64ae3e6AgentM9 years ago

examples/SimpleClient.hs+2−1

@@ -1,6 +1,7 @@

1import ProjectM36.Client

2import ProjectM36.TupleSet

3import ProjectM36.Relation.Show.Term

4+import Data.Text.IO as TIO

5main :: IO ()

6main :: IO ()

6main = do

7main = do

@@ -32,7 +33,7 @@ main = do

32 eRel <- executeRelationalExpr sessionId conn (Restrict restrictionPredicate (RelationVariable "person" ()))

33 eRel <- executeRelationalExpr sessionId conn (Restrict restrictionPredicate (RelationVariable "person" ()))

33 case eRel of

34 case eRel of

34 Left err -> print err

35 Left err -> print err

35− Right rel -> print (showRelation rel)

36+ Right rel -> TIO.putStrLn (showRelation rel)

37 --7. close the connection

38 --7. close the connection

38 close conn

39 close conn