X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgCase.lhs;h=1eea96c1b09c4cac89ffe346f78619eb92770984;hb=927df6486bc0dcb598b82702ca40c8fad0d9b25f;hp=057f58d7e6398f0110fb11762c30e79cc5a40051;hpb=89597d2148023abd5cc513ed52707dc8235a8be5;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs
index 057f58d..1eea96c 100644
--- a/compiler/codeGen/CgCase.lhs
+++ b/compiler/codeGen/CgCase.lhs
@@ -27,8 +27,8 @@ import CgInfoTbls
 
 import ClosureInfo
 import SMRep
-import CmmUtils
-import Cmm
+import OldCmmUtils
+import OldCmm
 
 import StgSyn
 import StaticFlags
@@ -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.