module Hakyll.Web.Preview.Server
( staticServer
) where
import Control.Monad.Trans (liftIO)
import Snap.Types (Snap)
import Snap.Util.FileServe ( DirectoryConfig (..), fancyDirectoryConfig
, serveDirectoryWith
)
import Snap.Http.Server ( httpServe, setAccessLog, setErrorLog
, setPort, emptyConfig
)
static :: FilePath
-> (FilePath -> IO ())
-> Snap ()
static directory preServe =
serveDirectoryWith directoryConfig directory
where
directoryConfig :: DirectoryConfig Snap
directoryConfig = fancyDirectoryConfig
{ preServeHook = liftIO . preServe
}
staticServer :: FilePath
-> (FilePath -> IO ())
-> Int
-> IO ()
staticServer directory preServe port =
httpServe config $ static directory preServe
where
config = setPort port
$ setAccessLog Nothing
$ setErrorLog Nothing
$ emptyConfig