Monospace fonts

[yawbih.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 194fffd0c721d0342f9ac31dcd6ee67a717f9d47..2aa225ead5154a711fbbc957f3036ad552c0abda 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -134,6 +134,9 @@ toWash ((Bold d):xs) = do
 toWash ((Emph d):xs) = do
        em (toWash d)
        toWash xs
+toWash ((Mono d):xs) = do
+       tt (toWash d)
+       toWash xs
 toWash ((Underline d):xs) = do
        u (toWash d)
        toWash xs
@@ -147,7 +150,7 @@ toWash ((Url l):xs) = do
        hlink (URL {unURL = (l)}) (text $ stripMailto l)
        toWash xs
 toWash ((Pre s):xs) = do
-       pre $ text s
+       pre $ toWash s
        toWash xs
 toWash ((List o l):xs) = do
        listType o $ mapM (\s -> li $ toWash s) l