ass10 tweak

Signed-off-by: Jim Pryor <profjim@jimpryor.net>

diff --git a/assignment10.mdwn b/assignment10.mdwn
index 004f8df..f16718d 100644 (file)
--- a/assignment10.mdwn
+++ b/assignment10.mdwn
@@ -73,7 +73,7 @@ Of course, if you need help or want us to review your efforts, we'll be glad to
                  fun s -> M.bind (u s) (fun (a, s') -> f a s');;
                
                let elevate (m : 'a M) : 'a stateT(M) =
-                 fun s -> Wrapped.bind w (fun a -> Wrapped.unit (a, s));;
+                 fun s -> M.bind w (fun a -> M.unit (a, s));;
 
        That won't compile in OCaml because we use the `M`s in a way that's intuitive but unrecognized by OCaml. What OCaml will recognize is more complex. Don't worry; you won't need to code a general implementation of StateT.