git.iko.soy/obelisk
on 3caa3db help sign in
obelisk/lib/executable-config/inject/src/Obelisk/ExecutableConfig/Inject.hs
17 lines 541 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module Obelisk.ExecutableConfig.Inject where
4import Data.ByteString (ByteString)
5import qualified Data.ByteString as BS
6import Data.Semigroup ((<>))
7import qualified Data.Text as T
8import qualified Data.Text.Encoding as T
9import Reflex.Dom
10import System.FilePath ((</>))
12inject :: FilePath -> IO ByteString
13inject item = do
14 f <- BS.readFile $ "config" </> item
15 fmap snd $ renderStatic $
16 elAttr "script" ("type" =: "text/plain" <> "id" =: ("config-" <> T.pack item)) $
17 text $ T.decodeUtf8 f