Skip to content
This repository has been archived by the owner. It is now read-only.
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (16 sloc) 446 Bytes
module Main where
import Prelude
import Effect (Effect)
import Data.Maybe (Maybe(..))
import Node.HTTP (ListenOptions, createServer, listen)
import StaticServe (staticHandler)
config :: ListenOptions
config =
{ hostname: "0.0.0.0"
, port: 3000
, backlog: Nothing
}
main :: Effect Unit
main = do
server <- createServer $ staticHandler { root: "./public", maxAge: 60, historyAPIFallback: true }
listen server config $ pure unit
You can’t perform that action at this time.