{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE TemplateHaskell #-} -- | A collection of helper functions to allow static resources to be requested. -- This also embeds those files into the resulting binary. module LambdaCms.Core.Handler.Static ( getNormalizeR , getBootstrapCssR , getBootstrapJsR , getJQueryR , getGlyphiconsWoffR , getGlyphiconsTtfR , getGlyphiconsEotR , getGlyphiconsSvgR , getLambdaCmsLogoR ) where import Data.ByteString (ByteString) import Data.FileEmbed (embedFile) import LambdaCms.Core.Import getStaticFile :: ByteString -> ByteString -> CoreHandler TypedContent getStaticFile mime efile = return $ TypedContent mime $ toContent efile getNormalizeR :: CoreHandler TypedContent getNormalizeR = getStaticFile "text/css" $(embedFile "static/css/normalize.css") getBootstrapCssR :: CoreHandler TypedContent getBootstrapCssR = getStaticFile "text/css" $(embedFile "static/css/bootstrap.min.css") getBootstrapJsR :: CoreHandler TypedContent getBootstrapJsR = getStaticFile "text/js" $(embedFile "static/js/bootstrap.min.js") getJQueryR :: CoreHandler TypedContent getJQueryR = getStaticFile "text/js" $(embedFile "static/js/jquery.min.js") getGlyphiconsWoffR :: CoreHandler TypedContent getGlyphiconsWoffR = getStaticFile "application/font-woff" $(embedFile "static/fonts/glyphicons.woff") getGlyphiconsTtfR :: CoreHandler TypedContent getGlyphiconsTtfR = getStaticFile "application/font-ttf" $(embedFile "static/fonts/glyphicons.ttf") getGlyphiconsEotR :: CoreHandler TypedContent getGlyphiconsEotR = getStaticFile "application/font-eot" $(embedFile "static/fonts/glyphicons.eot") getGlyphiconsSvgR :: CoreHandler TypedContent getGlyphiconsSvgR = getStaticFile "image/svg+xml" $(embedFile "static/fonts/glyphicons.svg") getLambdaCmsLogoR :: CoreHandler TypedContent getLambdaCmsLogoR = getStaticFile "image/png" $(embedFile "static/img/logo.png")