haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor tweaks for #590

Browse Source
This commit is contained in:
Michael Snoyman 2013-09-01 16:15:03 +03:00
parent f0ba8bb7f3
commit 5642489841
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-form/Yesod/Form/Fields.hs
View File

@ -516,6 +516,10 @@ optionsPersist filts ords toDisplay = fmap mkOptionList $ do
, optionExternalValue = toPathPiece key , optionExternalValue = toPathPiece key
}) pairs }) pairs
-- | An alternative to 'optionsPersist' which returns just the @Key@ instead of
-- the entire @Entity@.
--
-- Since 1.3.2
optionsPersistKey optionsPersistKey
:: (YesodPersist site :: (YesodPersist site
, PersistEntity a , PersistEntity a
@ -531,7 +535,7 @@ optionsPersistKey
optionsPersistKey filts ords toDisplay = fmap mkOptionList $ do optionsPersistKey filts ords toDisplay = fmap mkOptionList $ do
mr <- getMessageRender mr <- getMessageRender
pairs <- runDB $ selectList filts ords pairs <- runDB $ selectList filts ords
return $ Import.map (\(Entity key value) -> Option return $ map (\(Entity key value) -> Option
{ optionDisplay = mr (toDisplay value) { optionDisplay = mr (toDisplay value)
, optionInternalValue = key , optionInternalValue = key
, optionExternalValue = toPathPiece key , optionExternalValue = toPathPiece key

2
yesod-form/yesod-form.cabal
View File

@ -1,5 +1,5 @@
name: yesod-form name: yesod-form
version: 1.3.1 version: 1.3.2
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>