Monospace fonts

[yawbih.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 2dafbccda09d522a9cea358208d07371d59049fe..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