Permalink
Browse files

Remove mistaken comment

  • Loading branch information...
jaspervdj committed Mar 26, 2012
1 parent 0ca2110 commit 1dece5a524010e7715c99cba33969959d36f1c0c
Showing with 0 additions and 7 deletions.
  1. +0 −7 src/Text/Blaze/Internal.hs
@@ -173,13 +173,6 @@ newtype Tag = Tag { unTag :: StaticString }
newtype Attribute = Attribute (forall a. HtmlM a -> HtmlM a)
instance Monoid Attribute where
- -- Usually function composition does not form a monoid because we can't
- -- prove that
- --
- -- > f . (g . h) == (f . g) . h
- --
- -- but since the functions in 'Attribute' can only apply attributes, this
- -- is not a problem here.
mempty = Attribute id
Attribute f `mappend` Attribute g = Attribute (g . f)

0 comments on commit 1dece5a

Please sign in to comment.