X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsSyn.lhs;h=2169b1a3b6a7cee09b8c899f782a6294c239a528;hb=108361d05dfb0aa37871c2c6a4ddec45a1b68010;hp=a9982a630a7437863dd3bf28e4645fc6b7bf1ee8;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/compiler/hsSyn/HsSyn.lhs b/compiler/hsSyn/HsSyn.lhs index a9982a6..2169b1a 100644 --- a/compiler/hsSyn/HsSyn.lhs +++ b/compiler/hsSyn/HsSyn.lhs @@ -32,22 +32,21 @@ import HsImpExp import HsLit import HsPat import HsTypes -import HscTypes ( DeprecTxt ) -import BasicTypes ( Fixity ) +import BasicTypes ( Fixity, DeprecTxt ) import HsUtils -- others: import IfaceSyn ( IfaceBinding ) import Outputable import SrcLoc ( Located(..) ) -import Module ( Module ) +import Module ( Module, ModuleName ) \end{code} All we actually declare here is the top-level structure for a module. \begin{code} data HsModule name = HsModule - (Maybe (Located Module))-- Nothing => "module X where" is omitted + (Maybe (Located ModuleName))-- Nothing => "module X where" is omitted -- (in which case the next field is Nothing too) (Maybe [LIE name]) -- Export list; Nothing => export list omitted, so export everything -- Just [] => export *nothing*