From: simonpj <unknown>
Date: Thu, 17 Mar 2005 10:17:02 +0000 (+0000)
Subject: [project @ 2005-03-17 10:17:02 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~895
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9061a6970741d6a5574b8a558ce46064e661259f;p=ghc-hetmet.git

[project @ 2005-03-17 10:17:02 by simonpj]
minor to fix to (still probably broken) stglint
---

diff --git a/ghc/compiler/stgSyn/StgLint.lhs b/ghc/compiler/stgSyn/StgLint.lhs
index 0d1b7b5..0aa6aaa 100644
--- a/ghc/compiler/stgSyn/StgLint.lhs
+++ b/ghc/compiler/stgSyn/StgLint.lhs
@@ -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)