From 41a9160c19504cc36b27e4bbac8e6538a8188bcf Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Thu, 20 Nov 2014 14:28:53 +0100
Subject: [PATCH] Allow for empty banned tags list (#34)

---
 Handler/BannedTags.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Handler/BannedTags.hs b/Handler/BannedTags.hs
index 2ddcd92..fe39d83 100644
--- a/Handler/BannedTags.hs
+++ b/Handler/BannedTags.hs
@@ -19,9 +19,10 @@ getBannedTagsR = do
     curr <- fmap (map (bannedTagTag . entityVal))
           $ runDB $ selectList [] [Asc BannedTagTag]
     ((res, widget), enctype) <- runFormPost $ renderDivs
-        $ areq
+        $ fmap (fromMaybe [])
+        $ aopt
             (checkMMap checkSlugs fromSlugs textareaField)
-            "Banned tags (one per line)" $ Just curr
+            "Banned tags (one per line)" $ Just (Just curr)
     case res of
         FormSuccess tags -> do
             runDB $ do