diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-02 11:47:51 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-02 11:57:30 +0100 |
| commit | 15e4f93b661fe83cff96c8c295e7ea8985aa08aa (patch) | |
| tree | a3e3595e2c7b2d52e8e09cddaf5b4aea71172241 /compiler/iface | |
| parent | 46adcee283c66fcd5e1ff605177562e26e51c5c1 (diff) | |
| download | haskell-15e4f93b661fe83cff96c8c295e7ea8985aa08aa.tar.gz | |
applying simonpj's fix from #7022 (with 80-col reformatting)
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/MkIface.lhs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index ce07b375b3..c94b19a255 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -1498,8 +1498,12 @@ 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) |