Commit 184a5ced authored by Simon Marlow's avatar Simon Marlow
Browse files

fix warning

parent 6647f52f
...@@ -192,7 +192,6 @@ cgCase (StgOpApp (StgFCallOp fcall _) args _) ...@@ -192,7 +192,6 @@ cgCase (StgOpApp (StgFCallOp fcall _) args _)
unsafe_foreign_call unsafe_foreign_call
= case fcall of = case fcall of
CCall (CCallSpec _ _ s) -> not (playSafe s) CCall (CCallSpec _ _ s) -> not (playSafe s)
_other -> False
\end{code} \end{code}
Special case: scrutinising a non-primitive variable. Special case: scrutinising a non-primitive variable.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment