recognize digits in synopsis examples

2010-12-15 15:46:17 +00:00
parent 0a03b158d4
commit 256a8b3a61
1 changed files with 1 additions and 1 deletions
--- a/doc/MkExxTable.hs
+++ b/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