From bea386e23803ee3ff4e7c10715f169ee6da97fa9 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 21 Sep 2011 16:37:13 +0300 Subject: [PATCH] optionsPersist returns an OptionList --- yesod-form/Yesod/Form/Fields.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs index 6ea1db92..4d5bc805 100644 --- a/yesod-form/Yesod/Form/Fields.hs +++ b/yesod-form/Yesod/Form/Fields.hs @@ -413,8 +413,8 @@ optionsEnum = optionsPairs $ map (\x -> (pack $ show x, x)) [minBound..maxBound] optionsPersist :: ( YesodPersist master, PersistEntity a, PersistBackend (YesodPersistBackend master) (GGHandler sub master IO) , SinglePiece (Key (YesodPersistBackend master) a) ) - => [Filter a] -> [SelectOpt a] -> (a -> Text) -> GGHandler sub master IO [Option (Key (YesodPersistBackend master) a, a)] -optionsPersist filts ords toDisplay = do + => [Filter a] -> [SelectOpt a] -> (a -> Text) -> GGHandler sub master IO (OptionList (Key (YesodPersistBackend master) a, a)) +optionsPersist filts ords toDisplay = fmap mkOptionList $ do pairs <- runDB $ selectList filts ords return $ map (\(key, value) -> Option { optionDisplay = toDisplay value