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

diff --git a/Main.hs b/Main.hs
index 194fffd..2dafbcc 100644
--- a/Main.hs
+++ b/Main.hs
@@ -147,7 +147,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