Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions src/Share/NamespaceDiffs.hs
Original file line number Diff line number Diff line change
Expand Up @@ -62,7 +62,7 @@ import Unison.Codebase.Path (Path)
import Unison.Codebase.Path qualified as Path
import Unison.Codebase.SqliteCodebase.Conversions qualified as Cv
import Unison.DataDeclaration (Decl)
import Unison.DeclCoherencyCheck (checkDeclCoherency, lenientCheckDeclCoherency)
import Unison.DeclCoherencyCheck (asOneRandomIncoherentDeclReason, checkAllDeclCoherency, lenientCheckDeclCoherency)
import Unison.LabeledDependency (LabeledDependency)
import Unison.Merge qualified as Merge
import Unison.Merge.EitherWay qualified as EitherWay
Expand Down Expand Up @@ -262,8 +262,8 @@ computeThreeWayNamespaceDiff codebaseEnvs2 aliceCodeCache bobCodeCache branchHas
PG.transactionSpan "check decl coherency" mempty do
sequence $
( \v c e ->
checkDeclCoherency v.nametree c
& mapLeft (IncoherentDecl . e)
checkAllDeclCoherency v.nametree c
& mapLeft (IncoherentDecl . e . asOneRandomIncoherentDeclReason)
& liftEither
)
<$> ThreeWay.forgetLca defns
Expand Down
Loading
Loading