From: simonpj <unknown>
Date: Mon, 4 Jun 2001 16:46:00 +0000 (+0000)
Subject: [project @ 2001-06-04 16:46:00 by simonpj]
X-Git-Tag: Approximately_9120_patches~1813
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f9159272ae6a3f858a062c2b2d6f4a16a3318e4c;p=ghc-hetmet.git

[project @ 2001-06-04 16:46:00 by simonpj]
Import wibbles
---

diff --git a/ghc/compiler/ilxGen/IlxGen.lhs b/ghc/compiler/ilxGen/IlxGen.lhs
index ad36bac..1e0ceeb 100644
--- a/ghc/compiler/ilxGen/IlxGen.lhs
+++ b/ghc/compiler/ilxGen/IlxGen.lhs
@@ -43,7 +43,7 @@ import Outputable
 import Char		( ord )
 import List		( partition, elem, insertBy,any  )
 import UniqSet
-import {-# SOURCE #-}	PprType( pprType )	-- Only called in debug messages
+import PprType		( pprType )	-- Only called in debug messages
 
 import TysPrim  ( foreignObjPrimTyCon, weakPrimTyCon, byteArrayPrimTyCon, mutableByteArrayPrimTyCon )
 
diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 47381dc..73358bf 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -38,12 +38,10 @@ import RdrHsSyn		( RdrBinding(..),
 			)
 import RdrName
 import PrelNames	( unitTyCon_RDR )
-import ForeignCall	( CCallConv(..) )
 import OccName  	( dataName, varName, tcClsName,
 			  occNameSpace, setOccNameSpace, occNameUserString )
 import CStrings		( CLabelString )
 import FastString	( unpackFS )
-import UniqFM		( UniqFM, listToUFM )
 import Outputable
 
 -----------------------------------------------------------------------------