hdocs 0.5.0.1 → 0.5.0.2

raw patch · 2 files changed

+4/−2 lines, 2 filesdep ~haddock-api

Dependency ranges changed: haddock-api

Files

• hdocs.cabal +1/−1
• src/HDocs/Base.hs +3/−1

@@ -1,5 +1,5 @@ name:                hdocs
-version:             0.5.0.1
+version:             0.5.0.2
 synopsis:            Haskell docs tool
 description:
   Tool and library to get docs for installed packages and source files.

@@ -47,7 +47,6 @@ formatDoc :: Doc String -> String
 formatDoc = trim . go where
 	go :: Doc String -> String
-	go DocEmpty = ""
 	go (DocAppend a b) = go a ++ go b
 	go (DocString str) = trimSpaces str
 	go (DocParagraph p) = go p ++ "\n"
@@ -64,10 +63,13 @@ 	go (DocCodeBlock block) = unlines (map ("    " ++) (lines (go block))) ++ "\n"
 	go (DocHyperlink (Hyperlink url label)) = maybe url (\l -> l ++ "[" ++ url ++ "]") label
 	go (DocPic pic) = show pic
+	go (DocMathInline m) = m
+	go (DocMathDisplay m) = m
 	go (DocAName name) = name
 	go (DocProperty prop) = prop
 	go (DocExamples exs) = unlines (map formatExample exs)
 	go (DocHeader h) = foldMap go h
+	go _ = ""
 
 	formatExample :: Example -> String
 	formatExample (Example expr result) = ">>> " ++ expr ++ "\n" ++ unlines result