Some parsing inside <pre>

[yawbih.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 194fffd0c721d0342f9ac31dcd6ee67a717f9d47..2dafbccda09d522a9cea358208d07371d59049fe 100644 (file)
--- 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