From 309eee74e0c7658c8ca3652106fdc1710f30e4d3 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 2 Aug 2012 11:47:51 +0100
Subject: [PATCH] applying simonpj's fix from #7022 (with 80-col reformatting)
MERGED from commit 15e4f93b661fe83cff96c8c295e7ea8985aa08a
---
compiler/iface/MkIface.lhs | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index ce07b375b3e7..c94b19a25518 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)
--
GitLab