今日は早起きして朝から 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 コマンドにサブコマンドをひとつ追加した。あとすこし。昨日つくったいくつかの機能もマージされて、今日も使えた。自分でつくって自分で使うという流れ、良い。