今日は早起きして朝から fwt (private) 。とりあえずリクエストを処理できるようになった。

リクエストボディのパラメータを purescript-argonaut の DecodeJson のインスタンスにして JSON を解釈した。

↓みたいな感じ。

newtype UpdateUserBody
  = UpdateUserBody { face :: String }

instance decodeJsonUpdateUserBody :: DecodeJson UpdateUserBody where
  decodeJson json = do
    o <- decodeJson json
    face <- o .? "face"
    pure $ UpdateUserBody { face }

明日から Client に入ろうかな。初期設定を読めるようにしてもいいのだけど。はやく撮影側をやりたい。

夜 fgb コマンドにサブコマンドをひとつ追加した。あとすこし。昨日つくったいくつかの機能もマージされて、今日も使えた。自分でつくって自分で使うという流れ、良い。