From 256a8b3a615e8c15eee6f7f67332c8754a6c73a6 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

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

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