Skip to content

Instantly share code, notes, and snippets.

@michaelschade

michaelschade/Skeleton.hs

Created May 20, 2011 21:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save michaelschade/983818 to your computer and use it in GitHub Desktop.
Save michaelschade/983818 to your computer and use it in GitHub Desktop.
Download ZIP
Skeleton htmlTag function
Raw
Skeleton.hs
-- | Special set of conditionals for the HTML tag to make Skeleton compatible
-- with all browsers.
htmlTag :: Html
htmlTag = do
comment "lt IE 7" $ htmlEn ! class_ "ie ie6"
comment "IE 7" $ htmlEn ! class_ "ie ie7"
comment "IE 8" $ htmlEn ! class_ "ie ie8"
comment "(gte IE 9)|!(IE)" $ htmlEn
where htmlEn = html' ! lang "en" $ ""
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment