diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-23 09:57:42 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-23 09:57:42 +0100 |
| commit | 488e21c8cf07340c4d2f86f8177825a321cb312d (patch) | |
| tree | bee6beca864278f07500d23c98073db1277af649 /compiler/iface | |
| parent | f3c7ed721133d53f81d945ecb737a77c2ef6ef73 (diff) | |
| download | haskell-488e21c8cf07340c4d2f86f8177825a321cb312d.tar.gz | |
Make a new type synonym CoreProgram = [CoreBind]
and comment its invariants in Note [CoreProgram] in CoreSyn
I'm not totally convinced that CoreProgram is the right name
(perhaps CoreTopBinds might better), but it is useful to have
a clue that you are looking at the top-level bindings.
This is only a matter of a type synonym change; no deep
refactoring here.
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/TcIface.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs index f0e09b49f7..328770b5f8 100644 --- a/compiler/iface/TcIface.lhs +++ b/compiler/iface/TcIface.lhs @@ -1028,7 +1028,7 @@ tcIfaceDataAlt con inst_tys arg_strs rhs \begin{code} -tcExtCoreBindings :: [IfaceBinding] -> IfL [CoreBind] -- Used for external core +tcExtCoreBindings :: [IfaceBinding] -> IfL CoreProgram -- Used for external core tcExtCoreBindings [] = return [] tcExtCoreBindings (b:bs) = do_one b (tcExtCoreBindings bs) |