haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-19 07:31:55 +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)) curr <- fmap (map (bannedTagTag . entityVal))
$ runDB $ selectList [] [Asc BannedTagTag] $ runDB $ selectList [] [Asc BannedTagTag]
((res, widget), enctype) <- runFormPost $ renderDivs ((res, widget), enctype) <- runFormPost $ renderDivs
$ areq $ fmap (fromMaybe [])
$ aopt
(checkMMap checkSlugs fromSlugs textareaField) (checkMMap checkSlugs fromSlugs textareaField)
"Banned tags (one per line)" $ Just curr "Banned tags (one per line)" $ Just (Just curr)
case res of case res of
FormSuccess tags -> do FormSuccess tags -> do
runDB $ do runDB $ do