[Haskell] The Monad.Reader call for copy