[project @ 2005-04-04 10:23:03 by simonpj]
authorsimonpj <unknown>
Mon, 4 Apr 2005 10:23:03 +0000 (10:23 +0000)
committersimonpj <unknown>
Mon, 4 Apr 2005 10:23:03 +0000 (10:23 +0000)
Indent where clauses

libraries/template-haskell/Language/Haskell/TH/Ppr.hs

index a303898..07020a8 100644 (file)
@@ -316,7 +316,7 @@ instance Ppr Range where
 ------------------------------
 where_clause :: [Dec] -> Doc
 where_clause [] = empty
-where_clause ds = text "where" <+> vcat (map ppr ds)
+where_clause ds = nest nestDepth $ text "where" <+> vcat (map ppr ds)
 
 showtextl :: Show a => a -> Doc
 showtextl = text . map toLower . show