From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 28 Jul 2009 10:27:07 +0000 (+0000)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=184a5cedce7f8a253308d96a297acf09e3eb1199

fix warning
---

diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs
index 057f58d..9f24fba 100644
--- a/compiler/codeGen/CgCase.lhs
+++ b/compiler/codeGen/CgCase.lhs
@@ -192,7 +192,6 @@ cgCase (StgOpApp (StgFCallOp fcall _) args _)
    unsafe_foreign_call
 	 = case fcall of
 	 	CCall (CCallSpec _ _ s) -> not (playSafe s)
-		_other			-> False
 \end{code}
 
 Special case: scrutinising a non-primitive variable.