Skip to content

GitLab

Commit 7df91d49 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Improve pretty-printing of 'foreign' declarations

parent 3c803caa
Hide whitespace changes
Inline Side-by-side
compiler/hsSyn/HsDecls.lhs
View file @ 7df91d49
...@@ -864,11 +864,11 @@ data FoType = DNType -- In due course we'll add subtype stuff ...@@ -864,11 +864,11 @@ data FoType = DNType -- In due course we'll add subtype stuff
instance OutputableBndr name => Outputable (ForeignDecl name) where instance OutputableBndr name => Outputable (ForeignDecl name) where
ppr (ForeignImport n ty fimport) = ppr (ForeignImport n ty fimport) =
ptext SLIT("foreign import") <+> ppr fimport <+> hang (ptext SLIT("foreign import") <+> ppr fimport <+> ppr n)
ppr n <+> dcolon <+> ppr ty 2 (dcolon <+> ppr ty)
ppr (ForeignExport n ty fexport) = ppr (ForeignExport n ty fexport) =
ptext SLIT("foreign export") <+> ppr fexport <+> hang (ptext SLIT("foreign export") <+> ppr fexport <+> ppr n)
ppr n <+> dcolon <+> ppr ty 2 (dcolon <+> ppr ty)
instance Outputable ForeignImport where instance Outputable ForeignImport where
ppr (DNImport spec) = ppr (DNImport spec) =
......
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