Fix warnings

csicar · csicar · commit b8805c8f0501 · 2020-10-05T00:14:23.000+02:00
diff --git a/src/Language/PureScript/Docs/AsHtml.hs b/src/Language/PureScript/Docs/AsHtml.hs
@@ -190,7 +190,7 @@ renderChildren r xs = ul $ mapM_ item xs
         H.div ! A.class_ "decl__child_comments" $ renderMarkdown coms
 
   fragment decl = makeFragment (childDeclInfoNamespace (cdeclInfo decl)) (cdeclTitle decl)
-  subFragement decl title = makeFragment (childDeclInfoNamespace (cdeclInfo decl)) title
+  subFragement decl subTitle = makeFragment (childDeclInfoNamespace (cdeclInfo decl)) subTitle
   renderCode = code . codeAsHtml r 
   --codes = code <$> codeAsHtml r <$> Render.renderChildDeclaration codes
 
diff --git a/src/Language/PureScript/Docs/AsMarkdown.hs b/src/Language/PureScript/Docs/AsMarkdown.hs
@@ -12,7 +12,6 @@ import Control.Monad (unless, zipWithM_)
 import Control.Monad.Writer (Writer, tell, execWriter)
 
 import Data.Foldable (for_)
-import Data.Maybe (fromMaybe)
 import Data.List (partition)
 import Data.Text (Text)
 import qualified Data.Text as T
