json-response-on-yesod.md

React.js時代のYesodアプリの姿

チートシート

---

Handler関数の戻り値

getHogeR :: Handler Hoge

この場合、Hoge型が次の３つのclassのinstanceである必要があります。

• ToContent
• ToTypedContent
• Data.Aeson.ToJSON

---

リクエストをJSONで受ける

JSONで受けたい型がData.Aeson.FromJSONのinstanceである必要がある。 またプロパティの扱いに注意が必要。Maybeで包んでいないプロパティは、JSON中に必ず存在しなければならない。

data Input = Input {
    name :: Text
  , optionName :: Maybe Text
}

---

様々なinstance宣言をショートカットする

ToJSON/FromJSON/Lensのinstance宣言は面倒なもの。これをショートカットする方法がある。

data Hoge = Hoge {
    hogeAge :: Int
  , hogeName :: Maybe Text
}
-- Lensify
makeLenses ''Hoge
-- JSONify
$(deriveJSON defaultOptions {
    fieldLabelModifier = omittedFirstCharLower "_hoge"
} ''Hoge)

---