docs: fix example code
authorjohn <haskell@abc.com>
Mon, 17 Sep 2018 06:21:39 +0000 (06:21 +0000)
committerKrzysztof Gogolewski <krz.gogolewski@gmail.com>
Wed, 19 Sep 2018 06:49:53 +0000 (08:49 +0200)
PR: https://github.com/ghc/ghc/pull/197/

docs/users_guide/extending_ghc.rst

index 5b1a6cc..ef07f61 100644 (file)
@@ -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