mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
e0e6079c91
* Introducing the module CGI, re-exporting a subset of the cgi package. It might complete replace the cgi package in the future. * Introducing the module CGIUtils, containing functions from FastCGIUtils that have nothing to do with fastcgi. Some low level hackery with unsafePerformIO and global variables was left in FastCGIUtils, but it is actually not used, neither for gf -server nor exec/pgf-fcgi.hs.
26 lines
769 B
Haskell
26 lines
769 B
Haskell
module ServeStaticFile where
|
|
import System.FilePath
|
|
import System.Directory(doesDirectoryExist)
|
|
import CGI(setHeader,outputFPS,liftIO)
|
|
import qualified Data.ByteString.Lazy.Char8 as BS
|
|
|
|
serveStaticFile path =
|
|
do b <- liftIO $ doesDirectoryExist path
|
|
let path' = if b then path </> "index.html" else path
|
|
serveStaticFile' path'
|
|
|
|
serveStaticFile' path =
|
|
do setHeader "Content-Type" (contentTypeFromExt (takeExtension path))
|
|
outputFPS =<< liftIO (BS.readFile path)
|
|
|
|
contentTypeFromExt ext =
|
|
case ext of
|
|
".html" -> "text/html"
|
|
".htm" -> "text/html"
|
|
".xml" -> "text/xml"
|
|
".txt" -> "text/plain"
|
|
".css" -> "text/css"
|
|
".js" -> "text/javascript"
|
|
".png" -> "image/png"
|
|
".jpg" -> "image/jpg"
|
|
_ -> "application/octet-stream" |