Compatibility with binary: let arrows be run inside the binary monad.

Implements function
runArrow :: GetA () a -> Bin.Get a
which runs an arrow inside the Get monad from the binary package.