Skip to content
Browse files

Adapt to xmlhtml-0.1.4

  • Loading branch information...
1 parent 127460e commit 2b78855622ae8c538e3cfdeffb8d8e502146fe8a @sol committed Jun 9, 2011
Showing with 5 additions and 5 deletions.
  1. +1 −1 HackageOneFive.cabal
  2. +4 −4 src/Package.hs
View
2 HackageOneFive.cabal
@@ -36,7 +36,7 @@ Executable HackageOneFive
HDBC == 2.2.*,
HDBC-postgresql == 2.2.*,
blaze-html == 0.3.*,
- xmlhtml == 0.1.*
+ xmlhtml >= 0.1.4
if impl(ghc >= 6.12.0)
ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields -O2
View
8 src/Package.hs
@@ -14,7 +14,7 @@ import Data.Text (Text)
import Text.Blaze.Html5 (Html, (!))
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
-import Text.Blaze.Renderer.XmlHtml (renderHtml_)
+import Text.Blaze.Renderer.XmlHtml (renderHtmlNodes)
import Application
import Database
@@ -40,7 +40,7 @@ splices =
allPackagesSplice :: (MonadIO m) => Splice m
allPackagesSplice = do
packages <- getAllPackages
- return $ renderHtml_ $ do
+ return $ renderHtmlNodes $ do
H.h2 ("All packages " >> listCountInBraces packages)
packageList packages
@@ -50,7 +50,7 @@ dependenciesSplice :: (MonadIO m) => Splice m
dependenciesSplice = do
packageName <- getParamNodeText
dependencies <- getDependencies packageName
- return $ renderHtml_ $ do
+ return $ renderHtmlNodes $ do
H.h2 ("Dependencies " >> listCountInBraces dependencies)
if null dependencies
then
@@ -64,7 +64,7 @@ dependentPackagesSplice :: (MonadIO m) => Splice m
dependentPackagesSplice = do
packageName <- getParamNodeText
dependentPackages <- getDependentPackages packageName
- return $ renderHtml_ $ do
+ return $ renderHtmlNodes $ do
H.h2 ("Dependent packages " >> listCountInBraces dependentPackages)
if null dependentPackages
then

0 comments on commit 2b78855

Please sign in to comment.
Something went wrong with that request. Please try again.