Skip to content

Commit

Permalink
Remove excess alpha normalization in tests
Browse files Browse the repository at this point in the history
This was added to get more tests passing, but upstreaming the
minor differences is probably a better approach.
  • Loading branch information
MonoidMusician committed Jun 30, 2021
1 parent a5c3207 commit 192d6b3
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions test/Dhall/Standard.purs
Original file line number Diff line number Diff line change
Expand Up @@ -249,7 +249,7 @@ test = do
importedB <- parsedB.imports # unwrap # fst # unwrap # extract #
note "Failed to resolve B"
let norm = (conv <<< unordered) (extract typecheckedA.normalizedType)
when (alphaNormalize norm /= alphaNormalize importedB.resolved) do
when (norm /= importedB.resolved) do
when true do
logShow $ norm
logShow importedB.resolved
Expand Down Expand Up @@ -277,7 +277,7 @@ test = do
note "Failed to parse B"
importedB <- parsedB.imports # unwrap # fst # unwrap # extract #
note "Failed to resolve B"
when (alphaNormalize (unordered importedA.resolved) /= alphaNormalize (unordered importedB.resolved)) do
when (unordered importedA.resolved /= unordered importedB.resolved) do
when (true || verb) do
logShow importedA.resolved
logShow importedB.resolved
Expand Down

0 comments on commit 192d6b3

Please sign in to comment.