Making bound play nice with monad-gen.