haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-11 18:47:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update Stackage.Database.Haddock

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-05 04:32:13 +03:00
parent a6217c50bc
commit 3a88c8835b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Stackage/Database/Haddock.hs
View File

@ -5,12 +5,12 @@ module Stackage.Database.Haddock
import qualified Text.Blaze.Html5 as H import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A import qualified Text.Blaze.Html5.Attributes as A
import qualified Documentation.Haddock.Parser as Haddock import qualified Documentation.Haddock.Parser as Haddock
import Documentation.Haddock.Types (DocH (..), Hyperlink (..), Picture (..), Header (..), Example (..)) import Documentation.Haddock.Types (DocH (..), Hyperlink (..), Picture (..), Header (..), Example (..), MetaDoc(..))
import ClassyPrelude.Conduit import ClassyPrelude.Conduit
import Text.Blaze.Html (Html, toHtml) import Text.Blaze.Html (Html, toHtml)
renderHaddock :: Text -> Html renderHaddock :: Text -> Html
renderHaddock = hToHtml . Haddock.toRegular . Haddock.parseParas . unpack renderHaddock = hToHtml . Haddock.toRegular . _doc . Haddock.parseParas . unpack
-- | Convert a Haddock doc to HTML. -- | Convert a Haddock doc to HTML.
hToHtml :: DocH String String -> Html hToHtml :: DocH String String -> Html

2
stackage-server.cabal
View File

@ -150,7 +150,7 @@ library
, markdown >= 0.1.13 , markdown >= 0.1.13
, formatting , formatting
, blaze-html , blaze-html
, haddock-library , haddock-library >= 1.2.0
, async , async
, yesod-gitrepo >= 0.1.1 , yesod-gitrepo >= 0.1.1
, hoogle , hoogle