{-# LANGUAGE TemplateHaskell #-}
module Foreign.JavaScript.Resources where

import           Data.Text                          (Text)
import qualified Data.Text                  as Text
import           Foreign.JavaScript.Include

jsDriverCode :: Text
jsDriverCode :: Text
jsDriverCode = [Text] -> Text
Text.unlines ([Text] -> Text) -> [Text] -> Text
forall a b. (a -> b) -> a -> b
$ (String -> Text) -> [String] -> [Text]
forall a b. (a -> b) -> [a] -> [b]
map String -> Text
Text.pack
    [ $(include "js/lib/jquery.js")
    , $(include "js/lib/jquery-cookie.js")
    , String
"var Haskell = {};"
    , $(include "js/comm.js")
    , $(include "js/ffi.js")
    , $(include "js/lib.js")
    , $(include "js/log.js")
    ]

cssDriverCode :: Text
cssDriverCode :: Text
cssDriverCode = String -> Text
Text.pack $(include "js/haskell.css")

defaultHtmlFile :: Text
defaultHtmlFile :: Text
defaultHtmlFile = String -> Text
Text.pack $(include "js/index.html")