X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=572a8422d98eb46af52272028bb1e5c34dde34c6;hb=022fc24719ba4b98b8d9f19bfe7f75dd0f19d585;hp=4f0fc03ff2e621ed6f4640fa0156222af1310f9a;hpb=2eb04ca0f8d0ec72b417cddc60672c696b4a3daa;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 4f0fc03..572a842 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -399,8 +399,10 @@ data TyClDecl name
 			-- instance' decl with explicit kind sig
 
 		tcdCons	  :: [LConDecl name],	 	-- Data constructors
-			-- For data T a = T1 | T2 a          the LConDecls all have ResTyH98
-			-- For data T a where { T1 :: T a }  the LConDecls all have ResTyGADT
+			-- For data T a = T1 | T2 a          
+                        --   the LConDecls all have ResTyH98
+			-- For data T a where { T1 :: T a }  
+                        --   the LConDecls all have ResTyGADT
 
 		tcdDerivs :: Maybe [LHsType name]
 			-- Derivings; Nothing => not specified
@@ -427,9 +429,9 @@ data TyClDecl name
 		tcdSigs    :: [LSig name],		-- Methods' signatures
 		tcdMeths   :: LHsBinds name,		-- Default methods
 		tcdATs	   :: [LTyClDecl name],		-- Associated types; ie
-							--   only 'TyData',
-							--   'TyFunction',
-							--   and 'TySynonym'
+							--   only 'TyFamily' and
+							--   'TySynonym'; the
+                                                        --   latter for defaults
 		tcdDocs    :: [LDocDecl name]		-- Haddock docs
     }
 
@@ -864,11 +866,11 @@ data FoType = DNType 		-- In due course we'll add subtype stuff
 
 instance OutputableBndr name => Outputable (ForeignDecl name) where
   ppr (ForeignImport n ty fimport) =
-    ptext SLIT("foreign import") <+> ppr fimport <+> 
-    ppr n <+> dcolon <+> ppr ty
+    hang (ptext SLIT("foreign import") <+> ppr fimport <+> ppr n)
+       2 (dcolon <+> ppr ty)
   ppr (ForeignExport n ty fexport) =
-    ptext SLIT("foreign export") <+> ppr fexport <+> 
-    ppr n <+> dcolon <+> ppr ty
+    hang (ptext SLIT("foreign export") <+> ppr fexport <+> ppr n)
+       2 (dcolon <+> ppr ty)
 
 instance Outputable ForeignImport where
   ppr (DNImport			        spec) =