Ordered lists and some cleanup

[yawbih.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 3c634d36796ec7e71fb86a52138c7974d4b26acd..c89ebf27f6fe76e54e40bb372944a69219cba3e8 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -149,10 +149,13 @@ toWash ((Url l):xs) = do
 toWash ((Pre s):xs) = do
        pre $ text s
        toWash xs
-toWash ((List l):xs) = do
-       ul $ mapM (\s -> li $ toWash s) l
+toWash ((List o l):xs) = do
+       listType o $ mapM (\s -> li $ toWash s) l
        toWash xs
 
+listType True = ol
+listType False = ul
+
 stripMailto ('m':'a':'i':'l':'t':'o':':':xs) = xs
 stripMailto xs = xs