[commit: ghc] overlapping-tyfams: Fixed typo in earlier fix to #7022, as per Simon PJ. (8bedd34)

[Richard Eisenberg]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : overlapping-tyfams

http://hackage.haskell.org/trac/ghc/changeset/8bedd344dcc9a03d2d29c6fb978ed4fe0a62dcf2

>---------------------------------------------------------------

commit 8bedd344dcc9a03d2d29c6fb978ed4fe0a62dcf2
Author: Richard Eisenberg <eir at seas.upenn.edu>
Date:   Fri Jul 27 08:18:18 2012 -0700

    Fixed typo in earlier fix to #7022, as per Simon PJ.

>---------------------------------------------------------------

 compiler/iface/MkIface.lhs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index ce07b37..18dd8f4 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -1498,8 +1498,8 @@ tyConToIfaceDecl env tycon
 
     (syn_rhs, syn_ki) 
        = case synTyConRhs tycon of
-            SynFamilyTyCon  -> (Nothing,               tidyToIfaceType env1 (synTyConResKind tycon))
-            SynonymTyCon ty -> (Just (toIfaceType ty), tidyToIfaceType env1 (typeKind ty))
+            SynFamilyTyCon  -> (Nothing,                        tidyToIfaceType env1 (synTyConResKind tycon))
+            SynonymTyCon ty -> (Just (tidyToIfaceType env1 ty), tidyToIfaceType env1 (typeKind ty))
 
     ifaceConDecls (NewTyCon { data_con = con })     = IfNewTyCon  (ifaceConDecl con)
     ifaceConDecls (DataTyCon { data_cons = cons })  = IfDataTyCon (map ifaceConDecl cons)