diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-07-28 10:27:07 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-07-28 10:27:07 +0000 |
| commit | 184a5cedce7f8a253308d96a297acf09e3eb1199 (patch) | |
| tree | b0f119bc9e4c3bf9b839591031bbf7dd19c45d77 /compiler/codeGen/CgCase.lhs | |
| parent | 6647f52f5710bb1df27eda5125721c81498f6b8a (diff) | |
| download | haskell-184a5cedce7f8a253308d96a297acf09e3eb1199.tar.gz | |
fix warning
Diffstat (limited to 'compiler/codeGen/CgCase.lhs')
| -rw-r--r-- | compiler/codeGen/CgCase.lhs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs index 057f58d7e6..9f24fba379 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. |