Yesod.Form.JSON

The example of use

 data Offer = Offer {
      name :: Text
    , description Text
    , supplier :: SupplierId
    , category :: CategoryId
    , tags :: [TagId] 
    , images :: [Image]
    , variants :: [Variant]
    , active :: Bool
 }

 offer <- runJSONForm $ Offer <$> ireq textField "name"
                              <*> ireq textField "description"
                              <*> ireq jsonField "supplier" 
                              <*> ireq jsonField "category")
                              <*> ireq jsonField "tags")
                              <*> ireq jsonField "images"
                              <*> (fmap nub $ ireq jsonField "variants")
                              <*> ireq boolField "active"     

Functions

runJSONForm :: MonadHandler m => FormInput m a -> m a

Run JSON form

jsonField :: (Monad m, FromJSON a) => RenderMessage (HandlerSite m) FormMessage => Field m a

Obtain JSON field from json request