purr

password generation and secret sharing
Log | Files | Refs | README | LICENSE

Templates.hs (680B)

      1 {-# LANGUAGE QuasiQuotes     #-}
      2 {-# LANGUAGE TemplateHaskell #-}
      3 
      4 module Feature.Generation.Templates ( renderGen ) where
      5 
      6 import           Core.Templates                (hxVals)
      7 import           Feature.Generation.Passwords  (Password)
      8 
      9 import qualified Data.Text                     as T
     10 import qualified Data.Text.Lazy                as LT
     11 
     12 import           Text.Blaze.Html
     13 import           Text.Blaze.Html.Renderer.Text (renderHtml)
     14 import           Text.Hamlet                   (shamletFile)
     15 
     16 import           Prelude
     17 
     18 renderGen :: Password -> Password -> Password -> LT.Text
     19 renderGen genXkcd genOldschool genGibberish = renderHtml ( $(shamletFile "./views/gen.hamlet") )