{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module Develop.Generate.Help
( makePageHtml
, makeCodeHtml
)
where
import qualified Data.ByteString.Builder as B
import Data.Monoid ((<>))
import qualified Data.Name as Name
import Text.RawString.QQ (r)
import qualified Json.Encode as Encode
-- PAGES
makePageHtml :: Name.Name -> Maybe Encode.Value -> B.Builder
makePageHtml moduleName maybeFlags =
[r|
|]
-- CODE
makeCodeHtml :: FilePath -> B.Builder -> B.Builder
makeCodeHtml title code =
[r|
|] <> B.stringUtf8 title <> [r|
|] <> code <> [r|
|]