14 lines
281 B
Haskell
14 lines
281 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
module Main where
|
||
|
|
||
|
import Data.Monoid
|
||
|
import Web.Spock.Safe
|
||
|
|
||
|
main :: IO ()
|
||
|
main =
|
||
|
runSpock 5000 $ spockT id $
|
||
|
do get root $
|
||
|
text "Hello World!"
|
||
|
get ("hello" <//> var) $ \name ->
|
||
|
text ("Hello " <> name <> "!")
|