diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:14:44 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:14:44 +0000 |
commit | 60b0b9278533f746369be2d5ebee85e80b55052e (patch) | |
tree | 8f282d22c79898d64c9083e2bd141fba2155a1ba | |
parent | 1a0f4cdf2abab14be4fd92b5f9227fa2b9dbaf2d (diff) | |
download | sariulclocks-60b0b9278533f746369be2d5ebee85e80b55052e.tar.gz |
add (#=) ability to Bootstrap.hs
-rw-r--r-- | src/Text/XHtml/Bootstrap.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/XHtml/Bootstrap.hs b/src/Text/XHtml/Bootstrap.hs index dc5c0a2..88a132f 100644 --- a/src/Text/XHtml/Bootstrap.hs +++ b/src/Text/XHtml/Bootstrap.hs @@ -2,12 +2,12 @@ module Text.XHtml.Bootstrap where import Text.XHtml --- # ought to be for Id, something else for class ... - (#) :: ADDATTRS a => a -> String -> a e # theClass = e ! [strAttr "class" theClass] +(#=) :: ADDATTRS a => a -> String -> a +e #= theClass = e ! [strAttr "id" theClass] + bsButton :: HTML a => String -> String -> a -> Html -bsButton id theClass label = anchor ! [ strAttr "id" id - , strAttr "class" theClass] +bsButton id theClass label = anchor # theClass #= id << label |