-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/CodingStyle#Warnings
+-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
-- for details
module ForeignCall (
withDNTypes
) where
-#include "HsVersions.h"
-
-import FastString ( FastString, unpackFS )
+import FastString
import Char ( isAlphaNum )
import Binary
import Outputable
{-! derive: Binary !-}
instance Outputable Safety where
- ppr (PlaySafe False) = ptext SLIT("safe")
- ppr (PlaySafe True) = ptext SLIT("threadsafe")
- ppr PlayRisky = ptext SLIT("unsafe")
+ ppr (PlaySafe False) = ptext (sLit "safe")
+ ppr (PlaySafe True) = ptext (sLit "threadsafe")
+ ppr PlayRisky = ptext (sLit "unsafe")
playSafe :: Safety -> Bool
playSafe PlaySafe{} = True
isDynamicTarget :: CCallTarget -> Bool
isDynamicTarget DynamicTarget = True
-isDynamicTarget other = False
+isDynamicTarget _ = False
\end{code}
{-! derive: Binary !-}
instance Outputable CCallConv where
- ppr StdCallConv = ptext SLIT("stdcall")
- ppr CCallConv = ptext SLIT("ccall")
- ppr CmmCallConv = ptext SLIT("C--")
+ ppr StdCallConv = ptext (sLit "stdcall")
+ ppr CCallConv = ptext (sLit "ccall")
+ ppr CmmCallConv = ptext (sLit "C--")
defaultCCallConv :: CCallConv
defaultCCallConv = CCallConv