X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Main.hs;fp=Main.hs;h=c89ebf27f6fe76e54e40bb372944a69219cba3e8;hp=3c634d36796ec7e71fb86a52138c7974d4b26acd;hb=b0821b704ddf955948416ec8bfa0afcc6512c933;hpb=58e04761af30e092662dac331493200ccca48650

diff --git a/Main.hs b/Main.hs
index 3c634d3..c89ebf2 100644
--- 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