haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 12:18:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Allow for empty banned tags list (#34)

Browse Source
This commit is contained in:
Chris Done 2014-11-20 14:28:53 +01:00
parent f36df17c01
commit 41a9160c19
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/BannedTags.hs
View File

@ -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