Happstack.State.ComponentTH