X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsImpExp.lhs;h=7b4c904f8120dba794496e32b31a71870887cf7b;hb=c8e5f0f65223013cd21f25512b21eac0327aefdf;hp=501599993cf697b9b52e085586fd8c0192cdd22b;hpb=a4c419be8ab6b7dd898aed7fa690eb785ec8ffa1;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsImpExp.lhs b/compiler/hsSyn/HsImpExp.lhs
index 5015999..7b4c904 100644
--- a/compiler/hsSyn/HsImpExp.lhs
+++ b/compiler/hsSyn/HsImpExp.lhs
@@ -15,7 +15,7 @@ import HsDoc		( HsDocString )
 
 import Outputable
 import FastString
-import SrcLoc		( Located(..) )
+import SrcLoc
 
 import Data.Data
 \end{code}
@@ -40,6 +40,16 @@ data ImportDecl name
       ideclAs        :: Maybe ModuleName,   -- ^ as Module
       ideclHiding    :: Maybe (Bool, [LIE name]) -- ^ (True => hiding, names)
     } deriving (Data, Typeable)
+
+simpleImportDecl :: ModuleName -> ImportDecl name
+simpleImportDecl mn = ImportDecl {
+      ideclName      = noLoc mn,
+      ideclPkgQual   = Nothing,
+      ideclSource    = False,
+      ideclQualified = False,
+      ideclAs        = Nothing,
+      ideclHiding    = Nothing
+    }
 \end{code}
 
 \begin{code}