Fix MonadBaseControl instance for Handler.

Closes https://github.com/snapframework/snap-core/issues/200