suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reverted a change in the PrettyShow module because I'm no longer confident about it (original behaviour definitely worked)

Browse Source
This commit is contained in:
Neil Brown 2008-02-05 22:39:38 +00:00
parent 445d45752d
commit 673d6a4f76
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
common/PrettyShow.hs
View File

@ -141,9 +141,8 @@ doAny extFunc = extFunc (
`extQ` (doMap anyFunc :: Map.Map String A.NameDef -> Doc) `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.Type] -> Doc)
`extQ` (doMap anyFunc :: Map.Map String [A.Actual] -> Doc) `extQ` (doMap anyFunc :: Map.Map String [A.Actual] -> Doc)
-- `extQ` (doSet anyFunc :: Set.Set String -> Doc) `extQ` (doSet anyFunc :: Set.Set String -> Doc)
-- `extQ` (doSet anyFunc :: Set.Set A.Name -> Doc) `extQ` (doSet anyFunc :: Set.Set A.Name -> Doc)
`ext1Q` (doSet anyFunc)
) )
where where
anyFunc :: GenericQ Doc anyFunc :: GenericQ Doc