X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgCase.lhs;h=abda4dda317a0d97de02acb4ecdc88c27728705b;hb=2955dc83e4cce22ec0da7a2e654e2193814863cc;hp=b8f3141a770d0552710457def0a5d608a0e8f2d0;hpb=9ff76535edb25ab7434284adddb5c64708ecb547;p=ghc-hetmet.git

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