From d24c1a36ff3c4652e66ef7955366a314de706da5 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 7 Dec 2014 09:00:37 +0200
Subject: [PATCH] Handle DocProperty correctly (thanks @Fuuzetsu)

---
 Data/Hackage.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Hackage.hs b/Data/Hackage.hs
index e445cef..20e31fd 100644
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@@ -321,7 +321,7 @@ hToHtml =
     go (DocPic (Picture url 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 (DocProperty s) = toHtml s -- FIXME correct?
+    go (DocProperty s) = H.pre $ H.code $ toHtml s
     go (DocExamples es) = flip foldMap es $ \(Example exp' ress) ->
         H.div H.! A.class_ "example" $ do
             H.pre H.! A.class_ "expression" $ H.code $ toHtml exp'