Lucid.hs http://qiita.com/lotz/items/04d0bd8bf37df1f852fb

lucid.cabal

executable test
  hs-source-dirs:      app
  main-is:             Main.hs
  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
  build-depends:       base
                     , text
                     , lens
                     , criterion
                     , optparse-applicative
                     , mtl
                     , wai, warp, http-types, lucid

Lucid.hs

{-# LANGUAGE OverloadedStrings, RankNTypes, FlexibleContexts #-}
module Main where

import Lucid
import Data.Text
import Network.Wai
import Network.Wai.Handler.Warp
import Network.HTTP.Types

main :: IO ()
main = do
    putStrLn "localhost:3000"
    run 3000 $ \_ respond ->
        respond $ responseLBS status200 [] $ renderBS indexHtml

indexHtml :: Html ()
indexHtml = layoutHtml $ do
    h1_ [] "Lucid"
    p_ [] "Lorem"
    script_ [src_ "/js/main.js"] empty

layoutHtml :: Html () -> Html ()
layoutHtml content = do
    doctype_
    html_ $ do
        head_ $ do
            title_ [] "Hello Lucid"
            link_ [rel_ "stylesheet", type_ "text/css", href_ "/css/main.css"]
        body_ content