fix a compile error

hdgarrood · hdgarrood · commit 7b326f4fed7d · 2014-12-22T02:28:17.000Z
diff --git a/psc-docs/Main.hs b/psc-docs/Main.hs
@@ -75,7 +75,7 @@ renderModules showHierarchy ms = do
   mapM_ (renderModule showHierarchy) ms
 
 renderModule :: Bool -> P.Module -> Docs
-renderModule showHierarchy mdl =
+renderModule showHierarchy mdl@(P.Module moduleName _ exps) =
   let ds = P.exportedDeclarations mdl
       hasTypes = any isTypeDeclaration ds
       hasTypeclasses = any isTypeClassDeclaration ds
