ace 0.4 → 0.5

raw patch · 2 files changed

+5/−8 lines, 2 filesdep +blaze-htmldep +blaze-markup

Dependencies added: blaze-html, blaze-markup

Files

• ace.cabal +4/−2
• src/ACE/Html.hs +1/−6

@@ -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

@@ -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