ehmry/dhall-haskell
ehmry/dhall-haskell
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix α-normalization bug (#319)

Browse Source 
This fixes α-normalization to correctly relabel a `let`-bound variable
This commit is contained in:
Gabriel Gonzalez 2018-03-10 09:30:01 -08:00 committed by GitHub
parent bd83658409
commit 99c6241111
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Dhall/Core.hs
View File

@ -890,7 +890,7 @@ alphaNormalize (App f₀ a₀) =
a₁ = alphaNormalize a₀
alphaNormalize (Let x (Just _A₀) a₀ b₀) =
Let x (Just _A₁) a₁ b₃
Let "_" (Just _A₁) a₁ b₃
where
_A₁ = alphaNormalize _A₀
@ -902,7 +902,7 @@ alphaNormalize (Let x (Just _A₀) a₀ b₀) =
b₂ = shift (-1) (V x 0) b₁
b₃ = alphaNormalize b₂
alphaNormalize (Let x Nothing a₀ b₀) =
Let x Nothing a₁ b₃
Let "_" Nothing a₁ b₃
where
a₁ = alphaNormalize a₀