git.iko.soy/project-m36
on master help sign in
fix hlint redundant do
cb4706bAgentM
test/TransactionGraph/Persist.hs+1−1
compare with master
unifiedsplit
@@ -75,7 +75,7 @@ testDBSimplePersistence = TestCase $ withSystemTempDirectory "m36testdb" $ \temp
75
75
76--only Haskell-scripted dbc and atom functions can be serialized
76--only Haskell-scripted dbc and atom functions can be serialized
77testFunctionPersistence :: Test
77testFunctionPersistence :: Test
78−testFunctionPersistence = TestCase $ do
78+testFunctionPersistence = TestCase $
79 withSystemTempDirectory "m36testdb" $ \tempdir -> do
79 withSystemTempDirectory "m36testdb" $ \tempdir -> do
80 let dbdir = tempdir </> "dbdir"
80 let dbdir = tempdir </> "dbdir"
81 connInfo = InProcessConnectionInfo (MinimalPersistence dbdir) emptyNotificationCallback []
81 connInfo = InProcessConnectionInfo (MinimalPersistence dbdir) emptyNotificationCallback []