remove extraneous logging
commit64f9a5da097e3364fc8fc83acd4be3f93a4cdbc3
authorAgentM <agentm@themactionfaction.com>
dateMon 1 Oct 2018, 15:49 (8 years ago)
parent9aba569
test/TutorialD/Interpreter/DatabaseContextFunctionScript.hs−2
@@ -19,9 +19,7 @@ testBasicDBCFunction = TestCase $ do
1919 (sess, conn) <- dateExamplesConnection emptyNotificationCallback
2020 let addfunc = "adddatabasecontextfunction \"addTrue2\" DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext \"\"\"(\\[] ctx -> executeDatabaseContextExpr (Assign \"true2\" (ExistingRelation relationTrue)) ctx) :: [Atom] -> DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext\"\"\""
2121 executeTutorialD sess conn addfunc
22− putStrLn "spam1"
2322 executeTutorialD sess conn "execute addTrue2()"
24− putStrLn "spam2"
2523 {-
2624 let true2Expr = RelationVariable "true2" ()
2725 result <- executeRelationalExpr sess conn true2Expr