ghcでfusionしてくれそうな気もするが、どうなんだろう。 参考リンク Code smell: Boolean blindness | RV Blog Data.Witherable 11.1. Language options — Glasgow Haskell Compiler 8.9.0.20190425 User's Guide