ask と view を合成した関数を実装する

[Hexirp]

ask は Control.Monad.Reader.Class のもので view は Lens.Micro.Extras のものである。地味に同じパターンが数回現れているので。