Fix the compiler plugin example; patch from edsko; fixes #7682
authorIan Lynagh <ian@well-typed.com>
Sun, 24 Feb 2013 16:20:04 +0000 (16:20 +0000)
committerIan Lynagh <ian@well-typed.com>
Sun, 24 Feb 2013 16:20:04 +0000 (16:20 +0000)
docs/users_guide/extending_ghc.xml

index 1bce3fa..2c7f021 100644 (file)
@@ -226,12 +226,13 @@ install _ todo = do
   return (CoreDoPluginPass "Say name" pass : todo)
 
 pass :: ModGuts -> CoreM ModGuts
-pass = bindsOnlyPass (mapM printBind)
-  where printBind :: CoreBind -> CoreM CoreBind
-        printBind bndr@(NonRec b _) = do
-          putMsgS $ "Non-recursive binding named " ++ showSDoc (ppr b)
+pass = do dflags &lt;- getDynFlags
+          bindsOnlyPass (mapM (printBind dflags))
+  where printBind :: DynFlags -> CoreBind -> CoreM CoreBind
+        printBind dflags bndr@(NonRec b _) = do
+          putMsgS $ "Non-recursive binding named " ++ showSDoc dflags (ppr b)
           return bndr 
-        printBind bndr = return bndr
+        printBind bndr = return bndr
 </programlisting>
       </sect3>