Skip to content

GitLab

Commit 2d4d9897 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove a typo

parent a886e122
Hide whitespace changes
Inline Side-by-side
compiler/specialise/SpecConstr.lhs
View file @ 2d4d9897
...@@ -796,7 +796,7 @@ scExpr' env (Case scrut b ty alts) ...@@ -796,7 +796,7 @@ scExpr' env (Case scrut b ty alts)
; let (usg', arg_occs) = lookupOccs usg bs' ; let (usg', arg_occs) = lookupOccs usg bs'
scrut_occ = case con of scrut_occ = case con of
DataAlt dc -> ScrutOcc (unitUFM dc arg_occs) DataAlt dc -> ScrutOcc (unitUFM dc arg_occs)
_ofther -> ScrutOcc emptyUFM _ -> ScrutOcc emptyUFM
; return (usg', scrut_occ, (con,bs',rhs')) } ; return (usg', scrut_occ, (con,bs',rhs')) }
scExpr' env (Let (NonRec bndr rhs) body) scExpr' env (Let (NonRec bndr rhs) body)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment