module Language.Javascript.JSaddle.WebSockets.Files (
mkEmbedded
) where
import WaiAppStatic.Storage.Embedded
import qualified Data.ByteString.Lazy as BL
mkEmbedded :: IO [EmbeddableEntry]
mkEmbedded = do
indexFile <- BL.readFile "data/index.html"
jsFile <- BL.readFile "data/jsaddle.js"
let index = EmbeddableEntry {
eLocation = "index.html"
, eMimeType = "text/html"
, eContent = Left ("", indexFile)
}
js = EmbeddableEntry {
eLocation = "jsaddle.js"
, eMimeType = "text/plain"
, eContent = Left ("", jsFile)
}
return [index, js]