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