From 184a5cedce7f8a253308d96a297acf09e3eb1199 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 28 Jul 2009 10:27:07 +0000
Subject: [PATCH] fix warning

---
 compiler/codeGen/CgCase.lhs |    1 -
 1 file changed, 1 deletion(-)

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