@@ -1,6 +1,7 @@
11import ProjectM36.Client
22import ProjectM36.TupleSet
33import ProjectM36.Relation.Show.Term
4+import Data.Text.IO as TIO
45
56main :: IO ()
67main = do
@@ -32,7 +33,7 @@ main = do
3233 eRel <- executeRelationalExpr sessionId conn (Restrict restrictionPredicate (RelationVariable "person" ()))
3334 case eRel of
3435 Left err -> print err
35− Right rel -> print (showRelation rel)
36+ Right rel -> TIO.putStrLn (showRelation rel)
3637
3738 --7. close the connection
3839 close conn