add notification callbacks to example code
commit14073e80308804b6a44aab9998268c3724910edd
authorAgentM <agentm@themactionfaction.com>
dateThu 4 Feb 2016, 10:18 (11 years ago)
parentf1e4777
examples/PersistClient.hs+1−1
@@ -35,7 +35,7 @@ defPersonRel sessionId conn = do
3535main :: IO ()
3636main = do
3737 --1. create the database connection
38− let connInfo = InProcessConnectionInfo NoPersistence
38+ let connInfo = InProcessConnectionInfo NoPersistence emptyNotificationCallback
3939 withProjectM36Conn connInfo $ runProjectM36Conn $ do
4040 --2. use the underlying client connection and session to define a relation variable
4141 (sessionId, conn) <- ask
examples/SimpleClient.hs+1−1
@@ -8,7 +8,7 @@ import ProjectM36.Relation.Show.Term
88main :: IO ()
99main = do
1010 -- 1. create a ConnectionInfo
11− let connInfo = RemoteProcessConnectionInfo "mytestdb" (createNodeId "127.0.0.1" defaultServerPort)
11+ let connInfo = RemoteProcessConnectionInfo "mytestdb" (createNodeId "127.0.0.1" defaultServerPort) emptyNotificationCallback
1212 -- 2. conncted to the remote database
1313 eConn <- connectProjectM36 connInfo
1414 case eConn of