commit ghc-blaze-markup for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-blaze-markup for openSUSE:Factory checked in at 2017-08-31 20:50:14 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-blaze-markup (Old) and /work/SRC/openSUSE:Factory/.ghc-blaze-markup.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-blaze-markup" Thu Aug 31 20:50:14 2017 rev:9 rq:513214 version:0.8.0.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-blaze-markup/ghc-blaze-markup.changes 2017-01-12 15:47:19.379650698 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-blaze-markup.new/ghc-blaze-markup.changes 2017-08-31 20:50:16.391584157 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:04:08 UTC 2017 - psimons@suse.com + +- Update to version 0.8.0.0. + +------------------------------------------------------------------- Old: ---- blaze-markup-0.7.1.1.tar.gz New: ---- blaze-markup-0.8.0.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-blaze-markup.spec ++++++ --- /var/tmp/diff_new_pack.pOJtrO/_old 2017-08-31 20:50:17.375446053 +0200 +++ /var/tmp/diff_new_pack.pOJtrO/_new 2017-08-31 20:50:17.379445491 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-blaze-markup # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name blaze-markup %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.7.1.1 +Version: 0.8.0.0 Release: 0 Summary: A blazingly fast markup combinator library for Haskell License: BSD-3-Clause ++++++ blaze-markup-0.7.1.1.tar.gz -> blaze-markup-0.8.0.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/CHANGELOG new/blaze-markup-0.8.0.0/CHANGELOG --- old/blaze-markup-0.7.1.1/CHANGELOG 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/CHANGELOG 2017-01-30 17:48:00.000000000 +0100 @@ -1,3 +1,12 @@ +# Changelog + +- 0.8.0.0 (2017-01-30) + * Make `MarkupM` finally adhere to the Monad laws + * Stricten the `IsString` instance to only work with `MarkupM ()` and not + `MarkupM a` + * Change the type of `contents` to `MarkupM a -> MarkupM a` + * Add a `Semigroup` instance for `MarkupM` + - 0.7.1.1 * Bump `HUnit` dependency to allow 1.5 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/blaze-markup.cabal new/blaze-markup-0.8.0.0/blaze-markup.cabal --- old/blaze-markup-0.7.1.1/blaze-markup.cabal 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/blaze-markup.cabal 2017-01-30 17:48:00.000000000 +0100 @@ -1,5 +1,5 @@ Name: blaze-markup -Version: 0.7.1.1 +Version: 0.8.0.0 Homepage: http://jaspervdj.be/blaze Bug-Reports: http://github.com/jaspervdj/blaze-markup/issues License: BSD3 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/src/Text/Blaze/Internal.hs new/blaze-markup-0.8.0.0/src/Text/Blaze/Internal.hs --- old/blaze-markup-0.7.1.1/src/Text/Blaze/Internal.hs 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/src/Text/Blaze/Internal.hs 2017-01-30 17:48:00.000000000 +0100 @@ -1,6 +1,11 @@ -{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving, Rank2Types, - FlexibleInstances, ExistentialQuantification, - DeriveDataTypeable #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GADTs #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE Rank2Types #-} -- | The BlazeMarkup core, consisting of functions that offer the power to -- generate custom markup elements. It also offers user-centric functions, -- which are exposed through 'Text.Blaze'. @@ -74,22 +79,25 @@ , null ) where -import Prelude hiding (null) -import Control.Applicative (Applicative (..)) -import Data.Monoid (Monoid, mappend, mempty, mconcat) -import Unsafe.Coerce (unsafeCoerce) -import qualified Data.List as List - -import Data.ByteString.Char8 (ByteString) -import Data.Text (Text) -import Data.Typeable (Typeable) -import GHC.Exts (IsString (..)) -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as LT +import Control.Applicative (Applicative (..)) +import qualified Data.List as List +import Data.Monoid (Monoid, mappend, mconcat, mempty) +import Prelude hiding (null) + +import qualified Data.ByteString as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.ByteString.Lazy as BL +import Data.Text (Text) +import qualified Data.Text as T +import qualified Data.Text.Encoding as T +import qualified Data.Text.Lazy as LT import qualified Data.Text.Lazy.Builder as LTB +import Data.Typeable (Typeable) +import GHC.Exts (IsString (..)) + +#if MIN_VERSION_base(4,9,0) +import Data.Semigroup (Semigroup) +#endif -- | A static string that supports efficient output to all possible backends. -- @@ -140,27 +148,27 @@ -- data MarkupM a -- | Tag, open tag, end tag, content - = forall b. Parent StaticString StaticString StaticString (MarkupM b) + = Parent StaticString StaticString StaticString (MarkupM a) -- | Custom parent - | forall b. CustomParent ChoiceString (MarkupM b) + | CustomParent ChoiceString (MarkupM a) -- | Tag, open tag, end tag - | Leaf StaticString StaticString StaticString + | Leaf StaticString StaticString StaticString a -- | Custom leaf - | CustomLeaf ChoiceString Bool + | CustomLeaf ChoiceString Bool a -- | HTML content - | Content ChoiceString + | Content ChoiceString a -- | HTML comment. Note: you should wrap the 'ChoiceString' in a -- 'PreEscaped'. - | Comment ChoiceString + | Comment ChoiceString a -- | Concatenation of two HTML pieces - | forall b c. Append (MarkupM b) (MarkupM c) + | forall b. Append (MarkupM b) (MarkupM a) -- | Add an attribute to the inner HTML. Raw key, key, value, HTML to -- receive the attribute. | AddAttribute StaticString StaticString ChoiceString (MarkupM a) -- | Add a custom attribute to the inner HTML. | AddCustomAttribute ChoiceString ChoiceString (MarkupM a) -- | Empty HTML. - | Empty + | Empty a deriving (Typeable) -- | Simplification of the 'MarkupM' datatype. @@ -168,40 +176,62 @@ type Markup = MarkupM () instance Monoid a => Monoid (MarkupM a) where - mempty = Empty + mempty = Empty mempty {-# INLINE mempty #-} mappend x y = Append x y {-# INLINE mappend #-} - mconcat = foldr Append Empty + mconcat = foldr Append (Empty mempty) {-# INLINE mconcat #-} +#if MIN_VERSION_base(4,9,0) +instance Monoid a => Semigroup (MarkupM a) where +#endif + instance Functor MarkupM where - -- Safe because it does not contain a value anyway - fmap _ = unsafeCoerce + fmap f x = + -- Instead of traversing through all the nodes, we just store an extra + -- 'Empty' node with the new result. + Append x (Empty (f (markupValue x))) instance Applicative MarkupM where - pure _ = Empty + pure x = Empty x {-# INLINE pure #-} - (<*>) = Append + (<*>) x y = + -- We need to add an extra 'Empty' node to store the result. + Append (Append x y) (Empty (markupValue x (markupValue y))) {-# INLINE (<*>) #-} (*>) = Append {-# INLINE (*>) #-} - (<*) = Append - {-# INLINE (<*) #-} + -- (<*) = Append + -- {-# INLINE (<*) #-} instance Monad MarkupM where - return _ = Empty + return x = Empty x {-# INLINE return #-} (>>) = Append {-# INLINE (>>) #-} - h1 >>= f = h1 >> f - (error "Text.Blaze.Internal.MarkupM: invalid use of monadic bind") + h1 >>= f = Append h1 (f (markupValue h1)) {-# INLINE (>>=) #-} -instance IsString (MarkupM a) where - fromString = Content . fromString +instance (a ~ ()) => IsString (MarkupM a) where + fromString x = Content (fromString x) mempty {-# INLINE fromString #-} +-- | Get the value from a 'MarkupM'. +-- +markupValue :: MarkupM a -> a +markupValue m0 = case m0 of + Parent _ _ _ m1 -> markupValue m1 + CustomParent _ m1 -> markupValue m1 + Leaf _ _ _ x -> x + CustomLeaf _ _ x -> x + Content _ x -> x + Comment _ x -> x + Append _ m1 -> markupValue m1 + AddAttribute _ _ _ m1 -> markupValue m1 + AddCustomAttribute _ _ m1 -> markupValue m1 + Empty x -> x + -- | Type for an HTML tag. This can be seen as an internal string type used by -- BlazeMarkup. -- @@ -225,13 +255,13 @@ customParent :: Tag -- ^ Element tag -> Markup -- ^ Content -> Markup -- ^ Resulting markup -customParent tag = CustomParent (Static $ unTag tag) +customParent tag cont = CustomParent (Static $ unTag tag) cont -- | Create a custom leaf element customLeaf :: Tag -- ^ Element tag -> Bool -- ^ Close the leaf? -> Markup -- ^ Resulting markup -customLeaf tag = CustomLeaf (Static $ unTag tag) +customLeaf tag close = CustomLeaf (Static $ unTag tag) close () -- | Create an HTML attribute that can be applied to an HTML element later using -- the '!' operator. @@ -286,14 +316,14 @@ -- text :: Text -- ^ Text to render. -> Markup -- ^ Resulting HTML fragment. -text = Content . Text +text = content . Text {-# INLINE text #-} -- | Render text without escaping. -- preEscapedText :: Text -- ^ Text to insert -> Markup -- ^ Resulting HTML fragment -preEscapedText = Content . PreEscaped . Text +preEscapedText = content . PreEscaped . Text {-# INLINE preEscapedText #-} -- | A variant of 'text' for lazy 'LT.Text'. @@ -324,18 +354,22 @@ preEscapedTextBuilder = preEscapedLazyText . LTB.toLazyText {-# INLINE preEscapedTextBuilder #-} +content :: ChoiceString -> Markup +content cs = Content cs () +{-# INLINE content #-} + -- | Create an HTML snippet from a 'String'. -- string :: String -- ^ String to insert. -> Markup -- ^ Resulting HTML fragment. -string = Content . String +string = content . String {-# INLINE string #-} -- | Create an HTML snippet from a 'String' without escaping -- preEscapedString :: String -- ^ String to insert. -> Markup -- ^ Resulting HTML fragment. -preEscapedString = Content . PreEscaped . String +preEscapedString = content . PreEscaped . String {-# INLINE preEscapedString #-} -- | Insert a 'ByteString'. This is an unsafe operation: @@ -347,7 +381,7 @@ -- unsafeByteString :: ByteString -- ^ Value to insert. -> Markup -- ^ Resulting HTML fragment. -unsafeByteString = Content . ByteString +unsafeByteString = content . ByteString {-# INLINE unsafeByteString #-} -- | Insert a lazy 'BL.ByteString'. See 'unsafeByteString' for reasons why this @@ -358,36 +392,40 @@ unsafeLazyByteString = mconcat . map unsafeByteString . BL.toChunks {-# INLINE unsafeLazyByteString #-} +comment :: ChoiceString -> Markup +comment cs = Comment cs () +{-# INLINE comment #-} + -- | Create a comment from a 'Text' value. -- The text should not contain @"--"@. -- This is not checked by the library. textComment :: Text -> Markup -textComment = Comment . PreEscaped . Text +textComment = comment . PreEscaped . Text -- | Create a comment from a 'LT.Text' value. -- The text should not contain @"--"@. -- This is not checked by the library. lazyTextComment :: LT.Text -> Markup -lazyTextComment = Comment . mconcat . map (PreEscaped . Text) . LT.toChunks +lazyTextComment = comment . mconcat . map (PreEscaped . Text) . LT.toChunks -- | Create a comment from a 'String' value. -- The text should not contain @"--"@. -- This is not checked by the library. stringComment :: String -> Markup -stringComment = Comment . PreEscaped . String +stringComment = comment . PreEscaped . String -- | Create a comment from a 'ByteString' value. -- The text should not contain @"--"@. -- This is not checked by the library. unsafeByteStringComment :: ByteString -> Markup -unsafeByteStringComment = Comment . PreEscaped . ByteString +unsafeByteStringComment = comment . PreEscaped . ByteString -- | Create a comment from a 'BL.ByteString' value. -- The text should not contain @"--"@. -- This is not checked by the library. unsafeLazyByteStringComment :: BL.ByteString -> Markup unsafeLazyByteStringComment = - Comment . mconcat . map (PreEscaped . ByteString) . BL.toChunks + comment . mconcat . map (PreEscaped . ByteString) . BL.toChunks -- | Create a 'Tag' from some 'Text'. -- @@ -527,13 +565,13 @@ -- combinators. -- external :: MarkupM a -> MarkupM a -external (Content x) = Content $ External x -external (Append x y) = Append (external x) (external y) -external (Parent x y z i) = Parent x y z $ external i -external (CustomParent x i) = CustomParent x $ external i -external (AddAttribute x y z i) = AddAttribute x y z $ external i +external (Content x a) = Content (External x) a +external (Append x y) = Append (external x) (external y) +external (Parent x y z i) = Parent x y z $ external i +external (CustomParent x i) = CustomParent x $ external i +external (AddAttribute x y z i) = AddAttribute x y z $ external i external (AddCustomAttribute x y i) = AddCustomAttribute x y $ external i -external x = x +external x = x {-# INLINE external #-} -- | Take only the text content of an HTML tree. @@ -546,14 +584,14 @@ -- -- > Hello World! -- -contents :: MarkupM a -> MarkupM b +contents :: MarkupM a -> MarkupM a contents (Parent _ _ _ c) = contents c contents (CustomParent _ c) = contents c -contents (Content c) = Content c +contents (Content c x) = Content c x contents (Append c1 c2) = Append (contents c1) (contents c2) contents (AddAttribute _ _ _ c) = contents c contents (AddCustomAttribute _ _ c) = contents c -contents _ = Empty +contents m = Empty (markupValue m) -- | Check if a 'Markup' value is completely empty (renders to the empty -- string). @@ -561,14 +599,14 @@ null markup = case markup of Parent _ _ _ _ -> False CustomParent _ _ -> False - Leaf _ _ _ -> False - CustomLeaf _ _ -> False - Content c -> emptyChoiceString c - Comment c -> emptyChoiceString c + Leaf _ _ _ _ -> False + CustomLeaf _ _ _ -> False + Content c _ -> emptyChoiceString c + Comment c _ -> emptyChoiceString c Append c1 c2 -> null c1 && null c2 AddAttribute _ _ _ c -> null c AddCustomAttribute _ _ c -> null c - Empty -> True + Empty _ -> True where emptyChoiceString cs = case cs of Static ss -> emptyStaticString ss diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/Pretty.hs new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/Pretty.hs --- old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/Pretty.hs 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/Pretty.hs 2017-01-30 17:48:00.000000000 +0100 @@ -23,9 +23,9 @@ ind i . ('<' :) . fromChoiceString tag . attrs . (">\n" ++) . go (inc i) id content . ind i . ("</" ++) . fromChoiceString tag . (">\n" ++) - go i attrs (Leaf _ begin end) = + go i attrs (Leaf _ begin end _) = ind i . getString begin . attrs . getString end . ('\n' :) - go i attrs (CustomLeaf tag close) = + go i attrs (CustomLeaf tag close _) = ind i . ('<' :) . fromChoiceString tag . attrs . ((if close then " />\n" else ">\n") ++) go i attrs (AddAttribute _ key value h) = flip (go i) h $ @@ -33,11 +33,11 @@ go i attrs (AddCustomAttribute key value h) = flip (go i) h $ (' ' : ) . fromChoiceString key . ("=\"" ++) . fromChoiceString value . ('"' :) . attrs - go i _ (Content content) = ind i . fromChoiceString content . ('\n' :) - go i _ (Comment comment) = ind i . + go i _ (Content content _) = ind i . fromChoiceString content . ('\n' :) + go i _ (Comment comment _) = ind i . ("<!-- " ++) . fromChoiceString comment . (" -->\n" ++) go i attrs (Append h1 h2) = go i attrs h1 . go i attrs h2 - go _ _ Empty = id + go _ _ (Empty _) = id {-# NOINLINE go #-} -- Increase the indentation diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/String.hs new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/String.hs --- old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/String.hs 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/String.hs 2017-01-30 17:48:00.000000000 +0100 @@ -67,8 +67,8 @@ go attrs (CustomParent tag content) = ('<' :) . fromChoiceString tag . attrs . ('>' :) . go id content . ("</" ++) . fromChoiceString tag . ('>' :) - go attrs (Leaf _ begin end) = getString begin . attrs . getString end - go attrs (CustomLeaf tag close) = + go attrs (Leaf _ begin end _) = getString begin . attrs . getString end + go attrs (CustomLeaf tag close _) = ('<' :) . fromChoiceString tag . attrs . (if close then (" />" ++) else ('>' :)) go attrs (AddAttribute _ key value h) = flip go h $ @@ -76,11 +76,11 @@ go attrs (AddCustomAttribute key value h) = flip go h $ (' ' :) . fromChoiceString key . ("=\"" ++) . fromChoiceString value . ('"' :) . attrs - go _ (Content content) = fromChoiceString content - go _ (Comment comment) = + go _ (Content content _) = fromChoiceString content + go _ (Comment comment _) = ("<!-- " ++) . fromChoiceString comment . (" -->" ++) go attrs (Append h1 h2) = go attrs h1 . go attrs h2 - go _ Empty = id + go _ (Empty _) = id {-# NOINLINE go #-} {-# INLINE renderString #-} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/Text.hs new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/Text.hs --- old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/Text.hs 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/Text.hs 2017-01-30 17:48:00.000000000 +0100 @@ -99,11 +99,11 @@ `mappend` B.fromText "</" `mappend` fromChoiceString d tag `mappend` B.singleton '>' - go attrs (Leaf _ begin end) = + go attrs (Leaf _ begin end _) = B.fromText (getText begin) `mappend` attrs `mappend` B.fromText (getText end) - go attrs (CustomLeaf tag close) = + go attrs (CustomLeaf tag close _) = B.singleton '<' `mappend` fromChoiceString d tag `mappend` attrs @@ -120,13 +120,13 @@ `mappend` fromChoiceString d value `mappend` B.singleton '"' `mappend` attrs) h - go _ (Content content) = fromChoiceString d content - go _ (Comment comment) = + go _ (Content content _) = fromChoiceString d content + go _ (Comment comment _) = B.fromText "<!-- " `mappend` fromChoiceString d comment `mappend` " -->" go attrs (Append h1 h2) = go attrs h1 `mappend` go attrs h2 - go _ Empty = mempty + go _ (Empty _) = mempty {-# NOINLINE go #-} {-# INLINE renderMarkupBuilderWith #-} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/Utf8.hs new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/Utf8.hs --- old/blaze-markup-0.7.1.1/src/Text/Blaze/Renderer/Utf8.hs 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/src/Text/Blaze/Renderer/Utf8.hs 2017-01-30 17:48:00.000000000 +0100 @@ -65,11 +65,11 @@ `mappend` B.fromByteString "</" `mappend` fromChoiceString tag `mappend` B.fromChar '>' - go attrs (Leaf _ begin end) = + go attrs (Leaf _ begin end _) = B.copyByteString (getUtf8ByteString begin) `mappend` attrs `mappend` B.copyByteString (getUtf8ByteString end) - go attrs (CustomLeaf tag close) = + go attrs (CustomLeaf tag close _) = B.fromChar '<' `mappend` fromChoiceString tag `mappend` attrs @@ -86,13 +86,13 @@ `mappend` fromChoiceString value `mappend` B.fromChar '"' `mappend` attrs) h - go _ (Content content) = fromChoiceString content - go _ (Comment comment) = + go _ (Content content _) = fromChoiceString content + go _ (Comment comment _) = B.fromByteString "<!-- " `mappend` fromChoiceString comment `mappend` B.fromByteString " -->" go attrs (Append h1 h2) = go attrs h1 `mappend` go attrs h2 - go _ Empty = mempty + go _ (Empty _) = mempty {-# NOINLINE go #-} {-# INLINE renderMarkupBuilder #-} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/blaze-markup-0.7.1.1/tests/Text/Blaze/Tests/Util.hs new/blaze-markup-0.8.0.0/tests/Text/Blaze/Tests/Util.hs --- old/blaze-markup-0.7.1.1/tests/Text/Blaze/Tests/Util.hs 2016-11-28 11:29:21.000000000 +0100 +++ new/blaze-markup-0.8.0.0/tests/Text/Blaze/Tests/Util.hs 2017-01-30 17:48:00.000000000 +0100 @@ -50,13 +50,13 @@ table = Parent "table" "<table" "</table>" img :: Markup -- ^ Resulting HTML. -img = Leaf "img" "<img" ">" +img = Leaf "img" "<img" ">" () br :: Markup -- ^ Resulting HTML. -br = Leaf "br" "<br" ">" +br = Leaf "br" "<br" ">" () area :: Markup -- ^ Resulting HTML. -area = Leaf "area" "<area" ">" +area = Leaf "area" "<area" ">" () class_ :: AttributeValue -- ^ Attribute value. -> Attribute -- ^ Resulting attribute.
participants (1)
-
root＠hilbert.suse.de