Refactor App.hs.