Commit 9061a697 authored by simonpj's avatar simonpj

[project @ 2005-03-17 10:17:02 by simonpj]

minor to fix to (still probably broken) stglint
parent fc03c1e1
......@@ -217,6 +217,7 @@ lintStgExpr e@(StgCase scrut _ _ bndr _ alts_type alts)
(case scrut of
StgApp _ _ -> returnL ()
StgConApp _ _ -> returnL ()
StgOpApp _ _ _ -> returnL ()
other -> addErrL (mkCaseOfCaseMsg e)) `thenL_`
addInScopeVars [bndr] (lintStgAlts alts scrut_ty)
......
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