From f9159272ae6a3f858a062c2b2d6f4a16a3318e4c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 4 Jun 2001 16:46:00 +0000
Subject: [PATCH] [project @ 2001-06-04 16:46:00 by simonpj] Import wibbles

---
 ghc/compiler/ilxGen/IlxGen.lhs    |    2 +-
 ghc/compiler/parser/ParseUtil.lhs |    2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

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
 
 -----------------------------------------------------------------------------
-- 
1.7.10.4