refactoring: Quote.hs