Permalink
Browse files

Fix non-exhaustive printDoc function

  • Loading branch information...
1 parent 9b1d664 commit 8ef4b271f4e41246965c809d85ee21ab50b781f8 @nh2 nh2 committed Mar 16, 2013
Showing with 2 additions and 0 deletions.
  1. +2 −0 ModuleInspector.hs
View
@@ -205,6 +205,8 @@ documentationMap iface = M.fromList $ concatMap toDoc $ Doc.ifaceExportItems ifa
-- but exist in 2.13.*
-- printDoc (Doc.DocHyperlink link) = fromMaybe (Doc.hyperlinkUrl link) (Doc.hyperlinkLabel link)
-- printDoc (Doc.DocProperty prop) = prop
+ -- Catch all unsupported ones
+ printDoc _ = "[unsupported-by-extractDocs]" -- TODO
locatedName :: Loc.Located Name.Name -> String
locatedName (Loc.L _ nm) = Name.getOccString nm

0 comments on commit 8ef4b27

Please sign in to comment.