some fixes in synopsis example display

2013-10-18 08:48:18 +00:00
parent fdfc8d4dc2
commit 02cbf49516
4 changed files with 51 additions and 8 deletions
--- a/lib/doc/MkSynopsis.hs
+++ b/lib/doc/MkSynopsis.hs
@@ -203,7 +203,7 @@ mkTable hasEx isLatex aexx cs = inChunks chsize (\rs -> header : map (unwords .
 -- make an example with hover-popup translations
 mkExample es ex = unwords [
  "#divreveal",
-  itf (maybe ex id (M.lookup revealedLang es)),
+  itf (maybe ex (mkEx revealedLang) (M.lookup revealedLang es)),
  "#divpopup",
  "#UL",
  unwords ["#LI" ++ e | e <- prApiEx es],