etienne
4bb7d7b140
Describes the base structure for the project, as well as some basic functions. TODO: everything really...
20 lines
696 B
Haskell
20 lines
696 B
Haskell
module Core.Render
|
|
( renderHamlet
|
|
, renderClay
|
|
) where
|
|
|
|
import Clay ( Css
|
|
, compact
|
|
, renderWith
|
|
)
|
|
import qualified Data.Text.Lazy.IO as T
|
|
( putStr )
|
|
import Routes
|
|
import Text.Blaze.Html.Renderer.String
|
|
import Text.Hamlet ( HtmlUrl )
|
|
|
|
renderHamlet :: HtmlUrl Routes -> IO ()
|
|
renderHamlet ham = putStr . renderHtml $ ham render
|
|
|
|
renderClay :: Css -> IO ()
|
|
renderClay = T.putStr . renderWith compact []
|