リファクタリング ghc -Wall した時の警告をつぶした