diff --git a/Readme.md b/Readme.md
--- a/Readme.md
+++ b/Readme.md
@@ -1,14 +1,16 @@
 # Type of html static
 
-This little companion library of `Type of html` provides just two
-little function: `static :: Document a => a -> Q Exp`.  Using this
-template haskell function on any part of your html document will
-escape, render and lift to a Symbol at compile time.
+This little companion library of
+[https://hackage.haskell.org/package/type-of-html](Type of html)
+provides just two little functions:
+`static :: Document a => a -> Q Exp`.
+Using this template haskell function on any part of your html
+document will escape, render and lift to a Symbol at compile time.
 
 It increases performance a lot by avoiding any runtime computation.
 By producing Proxy Symbol, it will fuse at compiletime with adjacent
 elements in your document.
 
-`optimize :: Q Exp -> Q Exp` takes an quoted definition of a html
+`optimize :: Q Exp -> Q Exp` takes a quoted definition of a html
 document and tries to convert all literals to compile time escaped
 Proxy Symbol.  It is less powerfull than `static` but more convenient.
diff --git a/src/Html/Static.hs b/src/Html/Static.hs
--- a/src/Html/Static.hs
+++ b/src/Html/Static.hs
@@ -27,7 +27,7 @@
 -- | Try to optimize a quoted html document at compiletime.
 --
 -- >>> :t \x -> $(optimize [| div_ "a" # x |])
--- \x -> Proxy "<div>a</div>" # x
+-- \x -> 'Div > Proxy "a" # x
 --
 -- This function recurses into an Q Exp and turns every literal
 -- expression which is applied to an element or to an attribute into a
@@ -53,7 +53,7 @@
 optimize = fmap f
 
   where
-    f (AppE (VarE a) b) | nameModule a == Just "Html.Element" = AppE (VarE a) (f b)
+    f (AppE (VarE a) b) | nameModule a == Just "Html.Element" || nameModule a == Just "Html.Attribute" = AppE (VarE a) (f b)
     f (AppE (AppE (VarE a) b) c) | nameModule a == Just "Html.Element" || nameModule a == Just "Html.Type.Internal" && nameBase a == "#" = AppE (AppE (VarE a) (f b)) (f c)
     f (InfixE (Just a) (VarE b) (Just c)) | nameModule b == Just "Html.Type.Internal" && nameBase b == "#"
       = InfixE (Just (f a)) (VarE b) (Just (f c))
diff --git a/type-of-html-static.cabal b/type-of-html-static.cabal
--- a/type-of-html-static.cabal
+++ b/type-of-html-static.cabal
@@ -1,5 +1,5 @@
 name:                 type-of-html-static
-version:              0.1.0.1
+version:              0.1.0.2
 synopsis:             Optimize static parts of type-of-html.
 description:          This library provides the TH-function 'static' to annote which parts of your page are static to dramatically increase performance.
                       It converts and escapes it's argument at compiletime and lifts it to a Proxy Symbol to avoid even appending of Builder.