From 9061a6970741d6a5574b8a558ce46064e661259f Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 17 Mar 2005 10:17:02 +0000
Subject: [PATCH] [project @ 2005-03-17 10:17:02 by simonpj] minor to fix to
 (still probably broken) stglint

---
 ghc/compiler/stgSyn/StgLint.lhs |    1 +
 1 file changed, 1 insertion(+)

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)
-- 
1.7.10.4