{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module Generate.Html
( sandwich
)
where
import qualified Data.ByteString.Builder as B
import Data.Monoid ((<>))
import qualified Data.Name as Name
import Text.RawString.QQ (r)
-- SANDWICH
sandwich :: Name.Name -> B.Builder -> B.Builder
sandwich moduleName javascript =
let name = Name.toBuilder moduleName in
[r|
|] <> name <> [r|
This is a headless program, meaning there is nothing to show here.
I started the program anyway though!
You can access it as `app` in the developer console.
|]