X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Main.hs;fp=Main.hs;h=2aa225ead5154a711fbbc957f3036ad552c0abda;hp=2dafbccda09d522a9cea358208d07371d59049fe;hb=fd788a2053b4f32bd80d002329d64272af23759d;hpb=85eacfb829b94b0e1d7a6ca77f39546f6285fb4c

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