salvia-0.1: src/Demo.hs

module Demo where

import Network.Socket
import Network.Salvia.Httpd
import Network.Salvia.Handlers

-- Serve the current directory.

main :: IO ()
main = do
  conf <- defaultConfig
  addr <- inet_addr "127.0.0.1"
  start 
    (conf { listenAddr = addr, listenPort = 8080 })
    (hDefaultEnv myHandler)

-- Serve the current directory.

myHandler :: Handler ()
myHandler = hFileSystem "."