diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:30 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:30 +0000 |
| commit | 6084fb5517da34f65034370a3695e2af3b85ce2b (patch) | |
| tree | 722164fb91272b60570a6f4fdff95f7257beb964 /compiler/iface | |
| parent | bbc583766a08678d03740354bed216e268306356 (diff) | |
| download | haskell-6084fb5517da34f65034370a3695e2af3b85ce2b.tar.gz | |
Split the Id related functions out from Var into Id, document Var and some of Id
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/IfaceSyn.lhs | 1 | ||||
| -rw-r--r-- | compiler/iface/IfaceType.lhs | 1 | ||||
| -rw-r--r-- | compiler/iface/TcIface.lhs | 2 |
3 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs index 6659e8b771..39a1fd2fd6 100644 --- a/compiler/iface/IfaceSyn.lhs +++ b/compiler/iface/IfaceSyn.lhs @@ -24,7 +24,6 @@ module IfaceSyn ( #include "HsVersions.h" -import CoreSyn import IfaceType import NewDemand diff --git a/compiler/iface/IfaceType.lhs b/compiler/iface/IfaceType.lhs index e6049aa540..59fb3e905e 100644 --- a/compiler/iface/IfaceType.lhs +++ b/compiler/iface/IfaceType.lhs @@ -25,6 +25,7 @@ module IfaceType ( import TypeRep import TyCon +import Id import Var import TysWiredIn import Name diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs index c572afe36c..2dcdf78bd3 100644 --- a/compiler/iface/TcIface.lhs +++ b/compiler/iface/TcIface.lhs @@ -354,7 +354,7 @@ tcIfaceDecl ignore_prags (IfaceId {ifName = occ_name, ifType = iface_type, ifIdI = do { name <- lookupIfaceTop occ_name ; ty <- tcIfaceType iface_type ; info <- tcIdInfo ignore_prags name ty info - ; return (AnId (mkVanillaGlobal name ty info)) } + ; return (AnId (mkVanillaGlobalWithInfo name ty info)) } tcIfaceDecl _ (IfaceData {ifName = occ_name, |