knative
/
docs
mirror of https://github.com/knative/docs.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

serving/helloworld-haskell: respect the port env var (#463)

This commit is contained in:
Adam Ross 2018-10-24 11:47:48 -07:00 committed by Knative Prow Robot
parent 3935463648
commit 421f44e47a
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
serving/samples/helloworld-haskell/README.md
View File

@ -63,9 +63,11 @@ following instructions recreate the source files from this folder.
import Web.Scotty.Trans import Web.Scotty.Trans
main :: IO () main :: IO ()
main = do main = do
t <- fromMaybe "World" <$> lookupEnv "TARGET" t <- fromMaybe "World" <$> lookupEnv "TARGET"
scotty 8080 (route t) pStr <- fromMaybe "8080" <$> lookupEnv "PORT"
let p = read pStr :: Int
scotty p (route t)
route :: String -> ScottyM() route :: String -> ScottyM()
route t = get "/" $ hello t route t = get "/" $ hello t

4
serving/samples/helloworld-haskell/app/Main.hs
View File

@ -11,7 +11,9 @@ import Web.Scotty.Trans
main :: IO () main :: IO ()
main = do main = do
t <- fromMaybe "World" <$> lookupEnv "TARGET" t <- fromMaybe "World" <$> lookupEnv "TARGET"
scotty 8080 (route t) pStr <- fromMaybe "8080" <$> lookupEnv "PORT"
let p = read pStr :: Int
scotty p (route t)
route :: String -> ScottyM() route :: String -> ScottyM()
route t = get "/" $ hello t route t = get "/" $ hello t