git.iko.soy/project-m36
on master help sign in
fix hlint warnings
87c4e43AgentM
src/lib/ProjectM36/Client.hs+1−1
compare with master
unifiedsplit
@@ -594,7 +594,7 @@ autoMergeToHead sessionId (InProcessConnection conf) strat headName' = do
594 eSession <- sessionForSessionId sessionId sessions
594 eSession <- sessionForSessionId sessionId sessions
595 case eSession of
595 case eSession of
596 Left err -> pure (Left err)
596 Left err -> pure (Left err)
597− Right session -> do
597+ Right session ->
598 case Graph.transactionForHead headName' graph of
598 case Graph.transactionForHead headName' graph of
599 Nothing -> pure (Left (NoSuchHeadNameError headName'))
599 Nothing -> pure (Left (NoSuchHeadNameError headName'))
600 Just headTrans -> do
600 Just headTrans -> do
test/Client/Simple.hs+2−2
@@ -67,7 +67,7 @@ testSimpleUpdate :: Test
67testSimpleUpdate = TestCase $ do
67testSimpleUpdate = TestCase $ do
68 let connInfo = InProcessConnectionInfo NoPersistence emptyNotificationCallback []
68 let connInfo = InProcessConnectionInfo NoPersistence emptyNotificationCallback []
69 dbconn <- assertEither (simpleConnectProjectM36 connInfo)
69 dbconn <- assertEither (simpleConnectProjectM36 connInfo)
70− assertEither $ withTransaction dbconn $ do
70+ assertEither $ withTransaction dbconn $
71 execute $ databaseContextAsDatabaseContextExpr dateExamples
71 execute $ databaseContextAsDatabaseContextExpr dateExamples
72− assertEither $ withTransaction dbconn $ do
72+ assertEither $ withTransaction dbconn $
73 execute $ Update "s" (M.singleton "sname" (C.NakedAtomExpr (C.TextAtom "Blakey"))) (C.AttributeEqualityPredicate "sname" (C.NakedAtomExpr (C.TextAtom "Blake")))
73 execute $ Update "s" (M.singleton "sname" (C.NakedAtomExpr (C.TextAtom "Blakey"))) (C.AttributeEqualityPredicate "sname" (C.NakedAtomExpr (C.TextAtom "Blake")))