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

Remove a typo

parent a886e122
......@@ -796,7 +796,7 @@ scExpr' env (Case scrut b ty alts)
; let (usg', arg_occs) = lookupOccs usg bs'
scrut_occ = case con of
DataAlt dc -> ScrutOcc (unitUFM dc arg_occs)
_ofther -> ScrutOcc emptyUFM
_ -> ScrutOcc emptyUFM
; return (usg', scrut_occ, (con,bs',rhs')) }
scExpr' env (Let (NonRec bndr rhs) body)
Supports Markdown
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