[project @ 2000-04-03 09:52:28 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsCCall.lhs

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 35722fa..6170b1b 100644 (file)
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -39,6 +39,7 @@ import TysWiredIn     ( unitDataConId, stringTy,
                          unboxedPairDataCon,
                          mkUnboxedTupleTy, unboxedTupleCon
                        )
+import CStrings                ( CLabelString )
 import Unique          ( Unique )
 import VarSet          ( varSetElems )
 import Outputable
@@ -80,7 +81,7 @@ follows:
 \end{verbatim}
 
 \begin{code}
-dsCCall :: FAST_STRING -- C routine to invoke
+dsCCall :: CLabelString        -- C routine to invoke
        -> [CoreExpr]   -- Arguments (desugared)
        -> Bool         -- True <=> might cause Haskell GC
        -> Bool         -- True <=> really a "_casm_"