recognize digits in synopsis examples

2010-12-15 15:46:17 +00:00
parent 39925b8e5d
commit d44ba54ef2
1 changed files with 1 additions and 1 deletions
--- a/lib/doc/MkExxTable.hs
+++ b/lib/doc/MkExxTable.hs
@@ -48,7 +48,7 @@ getApiExxTrees = M.fromList . pairs . map cleanUp
     _ -> []

 -- remove leading prompts and spaces
-cleanUp = dropWhile (\c -> not (isAlpha c || elem c "*'"))
+cleanUp = dropWhile (flip elem " >")

 -- only accept lines starting with prompts (to eliminate multi-line gf uncomputed output)
 validOutput = (==">") . take 1