Spock-0.7.6.0: examples/simple/Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Web.Spock.Safe

main :: IO ()
main =
    runSpock 8080 $ spockT id $
    do get "foo" $
           text "bar"
       get ("hello" <//> var) $ \name ->
           text name