git.iko.soy/project-m36
on master help sign in
fix hlint warnings
commit87c4e432eb1bff11ac5e282fae08ddd7f5c3ecfa authorAgentM <agentm@themactionfaction.com> dateWed 10 Jan 2018, 18:15 (9 years ago) parentc02702c
2 files changed+3−3
compare with master
unifiedsplit
src/lib/ProjectM36/Client.hs+1−1 test/Client/Simple.hs+2−2
src/lib/ProjectM36/Client.hs+1−1
@@ -594,7 +594,7 @@ autoMergeToHead sessionId (InProcessConnection conf) strat headName' = do
594594 eSession <- sessionForSessionId sessionId sessions
595595 case eSession of
596596 Left err -> pure (Left err)
597− Right session -> do
597+ Right session ->
598598 case Graph.transactionForHead headName' graph of
599599 Nothing -> pure (Left (NoSuchHeadNameError headName'))
600600 Just headTrans -> do
test/Client/Simple.hs+2−2
@@ -67,7 +67,7 @@ testSimpleUpdate :: Test
6767testSimpleUpdate = TestCase $ do
6868 let connInfo = InProcessConnectionInfo NoPersistence emptyNotificationCallback []
6969 dbconn <- assertEither (simpleConnectProjectM36 connInfo)
70− assertEither $ withTransaction dbconn $ do
70+ assertEither $ withTransaction dbconn $
7171 execute $ databaseContextAsDatabaseContextExpr dateExamples
72− assertEither $ withTransaction dbconn $ do
72+ assertEither $ withTransaction dbconn $
7373 execute $ Update "s" (M.singleton "sname" (C.NakedAtomExpr (C.TextAtom "Blakey"))) (C.AttributeEqualityPredicate "sname" (C.NakedAtomExpr (C.TextAtom "Blake")))