Commit 15e4f93b authored by Simon Marlow's avatar Simon Marlow

applying simonpj's fix from #7022 (with 80-col reformatting)

parent 46adcee2
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment