listing 11.31

[Ben Burdette]

In listing 11.31, this:

runCommand (Bind c f) = do res <- runCommand c
                           runCommand (f res)

should be

runCommand (Bind c f) = do res <- runCommand (Pure c)
                           runCommand (f res)

[Ben Burdette]

Doh! Nope the problem was my definition of Bind. Resolved!