X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsCCall.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FDsCCall.lhs;h=ece24b2354c27bc503d5cd301b78aef18d815e29;hb=4a5870490196e05c40a9362ac2fef0081567bffc;hp=576c72160895a2824adda74a073e5bd1e78cd9d3;hpb=f01b31dd2e962b5d2ffcad547b3c781d41ec186b;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 576c721..ece24b2 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -26,7 +26,6 @@ import Maybes		( maybeToBool )
 import ForeignCall	( ForeignCall(..), CCallSpec(..), CCallTarget(..), Safety, 
 			  CCallConv(..), CLabelString )
 import DataCon		( splitProductType_maybe, dataConSourceArity, dataConWrapId )
-import ForeignCall	( ForeignCall, CCallTarget(..) )
 
 import TcType		( tcSplitTyConApp_maybe )
 import Type		( Type, isUnLiftedType, mkFunTys, mkFunTy,