mirror of https://github.com/knative/docs.git
21 lines
565 B
Haskell
21 lines
565 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import Data.Maybe
|
|
import Data.Monoid ((<>))
|
|
import Data.Text.Lazy (Text)
|
|
import Data.Text.Lazy
|
|
import System.Environment (lookupEnv)
|
|
import Web.Scotty (ActionM, ScottyM, scotty)
|
|
import Web.Scotty.Trans
|
|
|
|
main :: IO ()
|
|
main = do
|
|
t <- fromMaybe "NOT SPECIFIED" <$> lookupEnv "TARGET"
|
|
scotty 8080 (route t)
|
|
|
|
route :: String -> ScottyM()
|
|
route t = get "/" $ hello t
|
|
|
|
hello :: String -> ActionM()
|
|
hello t = text $ pack ("Hello world: " ++ t)
|