diff --git a/ace.cabal b/ace.cabal
--- a/ace.cabal
+++ b/ace.cabal
@@ -1,5 +1,5 @@
 name:                ace
-version:             0.4
+version:             0.5
 synopsis:            Attempto Controlled English parser and printer
 description:         Attempto Controlled English is a formally defined unambiguous language which
                      is a subset of the English language. This package provides a tokenizer,
@@ -34,7 +34,9 @@
                      parsec >= 3.1.5,
                      data-default >= 0.5.3,
                      text >= 0.11.2.0,
-                     base >= 4 && <5
+                     base >= 4 && <5,
+                     blaze-html >= 0.5.1.0,
+                     blaze-markup >= 0.5.2.0
 
 test-suite test
     type: exitcode-stdio-1.0
diff --git a/src/ACE/Html.hs b/src/ACE/Html.hs
--- a/src/ACE/Html.hs
+++ b/src/ACE/Html.hs
@@ -6,11 +6,9 @@
 
 module ACE.Html () where
 
-import ACE.Types.Pretty
 import ACE.Types.Syntax
 import Data.Monoid hiding (All)
 import Data.Text (pack)
-import Data.Text.Lazy.Builder
 import Text.Blaze
 import qualified Text.Blaze.Html5.Attributes as A
 import qualified Text.Blaze.Html5 as H
@@ -23,10 +21,7 @@
 toMarkupm :: ToMarkup a => Markup -> Maybe a -> Markup
 toMarkupm x = maybe "" ((<> x) . toMarkup)
 
--- | Maybe pretty print if anything. Other side.
-toMarkupmf :: ToMarkup a => Markup -> (Markup -> Markup) -> Maybe a -> Markup
-toMarkupmf x f = maybe "" (f . (<> x) . toMarkup)
-
+wrap :: AttributeValue -> H.Html -> H.Html
 wrap cls inner = H.span ! A.title cls ! A.class_ ("ace-" <> cls) $ inner
 
 instance ToMarkup Specification where