a635b06
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
{-# LANGUAGE OverloadedStrings #-} module Main where import Data.Monoid (mconcat) import Network.CubeCotillion main :: IO () main = do key <- loadKey "server-keys" cubeCotillion 8080 key $ do cmd "greet" $ do bs "Hello, world!\n" cmd "greet :name" $ do name <- param "name" bs $ mconcat ["Hello, ", name, "!\n"]