Use records instead of positional pattern matching to fix haddock com…

…patibility
SublimeHaskell · Apr 19, 2014 · eb70f70 · eb70f70
1 parent a568571
commit eb70f70
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ModuleInspector.hs b/ModuleInspector.hs
@@ -169,7 +169,7 @@ identOfName name = case name of
 documentationMap :: Doc.Interface -> M.Map String String
 documentationMap iface = M.fromList $ concatMap toDoc $ Doc.ifaceExportItems iface where
     toDoc :: Doc.ExportItem Name.Name -> [(String, String)]
-    toDoc (Doc.ExportDecl decl docs _ _) = maybe [] (zip (extractNames decl) . repeat) $ extractDocs docs
+    toDoc Doc.ExportDecl{ Doc.expItemDecl = decl, Doc.expItemMbDoc = docs } = maybe [] (zip (extractNames decl) . repeat) $ extractDocs docs
     toDoc _ = []
 
     extractNames :: HsDecls.LHsDecl Name.Name -> [String]