@@ -75,7 +75,7 @@ renderModules showHierarchy ms = do
7575 mapM_ (renderModule showHierarchy) ms
7676
7777renderModule :: Bool -> P.Module -> Docs
78−renderModule showHierarchy mdl =
78+renderModule showHierarchy mdl@(P.Module moduleName _ exps) =
7979 let ds = P.exportedDeclarations mdl
8080 hasTypes = any isTypeDeclaration ds
8181 hasTypeclasses = any isTypeClassDeclaration ds