git.iko.soy/project-m36
on master help sign in
close critical bug in session creation #3- creating a new session must propagate the transaction's context
commitaf513d34d846366db2094827f46b3920806d6171 authorAgentM <agentm@themactionfaction.com> dateWed 27 Jan 2016, 20:31 (11 years ago) parent781a9f8
1 file changed+2−2
compare with master
unifiedsplit
ProjectM36/Client.hs+2−2
ProjectM36/Client.hs+2−2
@@ -187,8 +187,8 @@ createSessionAtCommit_ commitUUID newSessionId (InProcessConnection _ sessions g
187187 graph <- readTVar graphTvar
188188 case transactionForUUID commitUUID graph of
189189 Left err -> pure (Left err)
190− Right _ -> do
191− let freshDiscon = DisconnectedTransaction commitUUID RE.basicDatabaseContext
190+ Right transaction -> do
191+ let freshDiscon = DisconnectedTransaction commitUUID (transactionContext transaction)
192192 keyDuplication <- STMMap.lookup newSessionId sessions
193193 case keyDuplication of
194194 Just _ -> pure $ Left (SessionIdInUse newSessionId)