{-# LANGUAGE OverloadedLists #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} module Web.View.Render where import Data.ByteString.Lazy qualified as BL import Data.Function ((&)) import Data.Map qualified as M import Data.String.Interpolate (i) import Data.Text (Text, intercalate, pack, toLower, unlines, unwords) import Data.Text.Lazy qualified as L import Data.Text.Lazy.Encoding qualified as LE import Web.View.View (View, ViewState (..), runView, viewInsertContents) import Prelude hiding (unlines, unwords) -- import Debug.Trace import Web.View.Types {- | Renders a 'View' as HTML with embedded CSS class definitions >>> renderText $ el bold "Hello"