[commit: ghc] master: docs: fix example code (a4ae97e)

[git at git.haskell.org]

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

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

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

commit a4ae97ea631461ec1fd9d7aabab767eaa0bec185
Author: john <haskell at abc.com>
Date:   Mon Sep 17 06:21:39 2018 +0000

    docs: fix example code
    
    PR: https://github.com/ghc/ghc/pull/197/


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

a4ae97ea631461ec1fd9d7aabab767eaa0bec185
 docs/users_guide/extending_ghc.rst | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/docs/users_guide/extending_ghc.rst b/docs/users_guide/extending_ghc.rst
index 5b1a6cc..ef07f61 100644
--- a/docs/users_guide/extending_ghc.rst
+++ b/docs/users_guide/extending_ghc.rst
@@ -130,10 +130,10 @@ when invoked:
 
     import GHC
     import GHC.Paths ( libdir )
-    import DynFlags ( defaultLogAction )
+    import DynFlags ( defaultFatalMessager, defaultFlushOut )
 
     main =
-        defaultErrorHandler defaultLogAction $ do
+        defaultErrorHandler defaultFatalMessager defaultFlushOut $ do
           runGhc (Just libdir) $ do
             dflags <- getSessionDynFlags
             setSessionDynFlags dflags