grin-compiler/grin
1
1
Fork 0
mirror of https://github.com/grin-compiler/grin.git synced 2024-11-20 13:09:57 +03:00
Code Issues Projects Releases Wiki Activity

Remove outdated comments

Browse Source
This commit is contained in:
Peter Podlovics 2020-04-19 16:40:49 +02:00 committed by GitHub
parent 272086b1b7
commit a9a92bb0f0
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
grin/src/Transformations/ExtendedSyntax/Optimising/ConstantPropagation.hs
View File

@ -28,8 +28,8 @@ constantPropagation e = ana builder (mempty, e) where
builder :: (Env, Exp) -> ExpF (Env, Exp)
builder (env, exp) = case exp of
ECase scrut alts -> -- val ~ scrut
let constVal = getValue scrut env -- error "substValsVal env val"
ECase scrut alts ->
let constVal = getValue scrut env
known = isKnown constVal || Map.member scrut env
matchingAlts = [alt | alt@(Alt cpat name body) <- alts, match cpat constVal]
defaultAlts = [alt | alt@(Alt DefaultPat name body) <- alts]