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

fix warning

parent 6647f52f
......@@ -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.
......
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