1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Web.Scotty
import Network.Wai
import qualified Data.Text.Lazy as TL
import Network.HTTP.Types.Status
import Data.Monoid (mconcat)
simpleApp :: Application
simpleApp _ respond = do
putStrLn "I've done some IO here"
respond $ responseLBS
status200
[("Content-Type", "text/plain")]
"Hello, Web!"
scottApp :: IO Application
scottApp = scottyApp $ do
get "/" $ do
html $ mconcat ["<h1>Scotty, beam me up!</h1>"]
get "/other/test/:word" $ do
beam <- param "word"
html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]
get "/test/:word" $ do
beam <- param "word"
html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]
get "/nested" $ nested simpleApp
get "/other/nested" $ nested simpleApp
notFound $ do
r <- request
html (TL.pack (show (pathInfo r)))
-- For example, returns path info: ["other","qwer","adxf","jkashdfljhaslkfh","qwer"]
-- for request http://localhost:3000/other/qwer/adxf/jkashdfljhaslkfh/qwer
main :: IO ()
main = do
otherApp <- scottApp
scotty 3000 $ do
get "/" $ do
html $ mconcat ["<h1>Scotty, beam me up!</h1>"]
get "/test/:word" $ do
beam <- param "word"
html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]
get "/simple" $ nested simpleApp
get "/other" $ nested otherApp
get (regex "/other/.*") $ nested otherApp
|
