Refatoração com haskell-apply-refact
