We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d01771a commit 139d76fCopy full SHA for 139d76f
src/Share/Web/UCM/Projects/Impl.hs
@@ -133,7 +133,7 @@ getProjectBranchEndpoint (AuthN.MaybeAuthedUserID mayCallerUserId) projectIdPara
133
maySquashedBranchHead <-
134
if includeSquashedHead
135
then lift $ do
136
- PG.runTransactionMode PG.RepeatableRead PG.ReadWrite $ do
+ PG.runTransaction $ do
137
maySquashedCausalId <- Codebase.squashCausalAndAddToCodebase codebaseEnv causalId
138
-- Join in the hash
139
for maySquashedCausalId \cid -> (cid,) <$> HashQ.expectCausalHashesByIdsOf id cid
0 commit comments