[commit: ghc] master: Add missing "do" to example in arrow docs. (5179fd4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5179fd4d71ae67bfb34cedf1e1d4f3b3de8e974d/ghc

>---------------------------------------------------------------

commit 5179fd4d71ae67bfb34cedf1e1d4f3b3de8e974d
Author: null-a <null-a at users.noreply.github.com>
Date:   Mon May 22 10:13:14 2017 +0100

    Add missing "do" to example in arrow docs.


>---------------------------------------------------------------

5179fd4d71ae67bfb34cedf1e1d4f3b3de8e974d
 docs/users_guide/glasgow_exts.rst | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/docs/users_guide/glasgow_exts.rst b/docs/users_guide/glasgow_exts.rst
index d9a70c3..20312eb 100644
--- a/docs/users_guide/glasgow_exts.rst
+++ b/docs/users_guide/glasgow_exts.rst
@@ -11671,7 +11671,7 @@ abstraction.
 We could define our own operator ::
 
     untilA :: ArrowChoice a => a (e,s) () -> a (e,s) Bool -> a (e,s) ()
-    untilA body cond = proc x ->
+    untilA body cond = proc x -> do
             b <- cond -< x
             if b then returnA -< ()
             else do