some fixes in synopsis example display

This commit is contained in:
aarne
2013-10-18 08:48:18 +00:00
parent fdfc8d4dc2
commit 02cbf49516
4 changed files with 51 additions and 8 deletions

View File

@@ -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],