Added instance Attributable Attribute for more syntactic sugar

jaspervdj · May 30, 2015 · d6cb5a4 · d6cb5a4
1 parent 67da6e7
commit d6cb5a4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Text/Blaze/Internal.hs b/src/Text/Blaze/Internal.hs
@@ -167,6 +167,7 @@ data MarkupM a
     | Empty
     deriving (Typeable)
 
+
 -- | Simplification of the 'MarkupM' datatype.
 --
 type Markup = MarkupM ()
@@ -523,6 +524,9 @@ instance Attributable (MarkupM a -> MarkupM b) where
     h ! f = (! f) . h
     {-# INLINE (!) #-}
 
+instance Attributable Attribute where
+    (Attribute h) ! f = Attribute $ (! f) . h
+
 -- | Shorthand for setting an attribute depending on a conditional.
 --
 -- Example:
@@ -603,3 +607,4 @@ null markup = case markup of
         EmptyChoiceString        -> True
 
     emptyStaticString = B.null . getUtf8ByteString
+