Skip to content

Commit

Permalink
Rename variable
Browse files Browse the repository at this point in the history
  • Loading branch information
ollef committed Mar 21, 2024
1 parent bf5ac46 commit 30f8109
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Elaboration/Matching.hs
Original file line number Diff line number Diff line change
Expand Up @@ -897,10 +897,10 @@ splitEqualityOr context config matches k =
_
(Pattern _ Wildcard)
(Builtin.Equals type_ value1 value2) -> do
unificationResult <- try do
equationResult <- try do
context' <- Equation.equate context Flexibility.Rigid value1 value2
Equation.equate context' Flexibility.Rigid scrutineeValue' $ Builtin.Refl type_ value1 value2
case unificationResult of
case equationResult of
Left Equation.Nope -> do
check context config {clauses = drop 1 config.clauses} Postponement.CanPostpone
Left Equation.Dunno -> do
Expand Down

0 comments on commit 30f8109

Please sign in to comment.