diff options
| -rw-r--r-- | compiler/codeGen/CgCase.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs index b8f3141a77..abda4dda31 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. |