From 673d6a4f76a0eacc4785eb3f6558354d9a6d760d Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Tue, 5 Feb 2008 22:39:38 +0000 Subject: [PATCH] Reverted a change in the PrettyShow module because I'm no longer confident about it (original behaviour definitely worked) --- common/PrettyShow.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/common/PrettyShow.hs b/common/PrettyShow.hs index 5911916..14a4201 100644 --- a/common/PrettyShow.hs +++ b/common/PrettyShow.hs @@ -141,9 +141,8 @@ doAny extFunc = extFunc ( `extQ` (doMap anyFunc :: Map.Map String A.NameDef -> Doc) `extQ` (doMap anyFunc :: Map.Map String [A.Type] -> Doc) `extQ` (doMap anyFunc :: Map.Map String [A.Actual] -> Doc) --- `extQ` (doSet anyFunc :: Set.Set String -> Doc) --- `extQ` (doSet anyFunc :: Set.Set A.Name -> Doc) - `ext1Q` (doSet anyFunc) + `extQ` (doSet anyFunc :: Set.Set String -> Doc) + `extQ` (doSet anyFunc :: Set.Set A.Name -> Doc) ) where anyFunc :: GenericQ Doc