From d44ba54ef2f4e263b69289f7ca8eb3f8eb6bab4a Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 15 Dec 2010 15:46:17 +0000
Subject: [PATCH] recognize digits in synopsis examples

---
 lib/doc/MkExxTable.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/doc/MkExxTable.hs b/lib/doc/MkExxTable.hs
index 1a57cbdca..b19fea455 100644
--- 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