X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsCCall.lhs;h=57bace20008452697a943c95baab6d7a2932c580;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=4ae835f2c9907bcb888e445dce0c8e009a6f2753;hpb=57573e7e61032482d6be16ed4ac86c2b4115fbfa;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 4ae835f..57bace2 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -23,7 +23,8 @@ import CoreUtils	( exprType, mkCoerce2 )
 import Id		( Id, mkWildId )
 import MkId		( mkFCallId, realWorldPrimId, mkPrimOpId )
 import Maybes		( maybeToBool )
-import ForeignCall	( ForeignCall(..), CCallSpec(..), CCallTarget(..), Safety, CCallConv(..) )
+import ForeignCall	( ForeignCall(..), CCallSpec(..), CCallTarget(..), Safety, 
+			  CCallConv(..), CLabelString )
 import DataCon		( splitProductType_maybe, dataConSourceArity, dataConWrapId )
 import ForeignCall	( ForeignCall, CCallTarget(..) )
 
@@ -51,7 +52,6 @@ import TysWiredIn	( unitDataConId,
 			)
 import BasicTypes       ( Boxity(..) )
 import Literal		( mkMachInt )
-import CStrings		( CLabelString )
 import PrelNames	( Unique, hasKey, ioTyConKey, boolTyConKey, unitTyConKey,
 			  int8TyConKey, int16TyConKey, int32TyConKey,
 			  word8TyConKey, word16TyConKey, word32TyConKey
@@ -238,7 +238,7 @@ unboxArg arg
 		       ])
 
   | otherwise
-  = getSrcLocDs `thenDs` \ l ->
+  = getSrcSpanDs `thenDs` \ l ->
     pprPanic "unboxArg: " (ppr l <+> ppr arg_ty)
   where
     arg_ty					= exprType arg