instance Num (MONEY -> Currency) where ...

Any hack with type "Money -> Currency" fits firmly in the "horrific" column.