{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module Generate.Html
( sandwich
)
where
import qualified Data.ByteString.Builder as B
import Data.Monoid ((<>))
import Text.RawString.QQ (r)
import qualified Elm.Name as N
-- SANDWICH
sandwich :: N.Name -> B.Builder -> B.Builder
sandwich moduleName javascript =
let name = N.toBuilder moduleName in
[r|
|] <> name <> [r|
|]