haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-22 08:51:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Handle DocProperty correctly (thanks @Fuuzetsu)

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-07 09:00:37 +02:00
parent 6ea4b2161b
commit d24c1a36ff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Hackage.hs
View File

@ -321,7 +321,7 @@ hToHtml =
go (DocPic (Picture url mtitle)) = go (DocPic (Picture url mtitle)) =
H.img H.! A.src (H.toValue url) H.! A.title (H.toValue $ fromMaybe mempty mtitle) H.img H.! A.src (H.toValue url) H.! A.title (H.toValue $ fromMaybe mempty mtitle)
go (DocAName s) = H.div H.! A.id (H.toValue s) $ mempty go (DocAName s) = H.div H.! A.id (H.toValue s) $ mempty
go (DocProperty s) = toHtml s -- FIXME correct? go (DocProperty s) = H.pre $ H.code $ toHtml s
go (DocExamples es) = flip foldMap es $ \(Example exp' ress) -> go (DocExamples es) = flip foldMap es $ \(Example exp' ress) ->
H.div H.! A.class_ "example" $ do H.div H.! A.class_ "example" $ do
H.pre H.! A.class_ "expression" $ H.code $ toHtml exp' H.pre H.! A.class_ "expression" $ H.code $ toHtml exp'