wai-conduit/example/Main.hs · typeable/wai

git.iko.soy/typeable/wai

on warp-3.2.24 help sign in

19 lines 507 B history raw

1#!/usr/bin/env stack

2-- stack --resolver lts-11.10 script

3import Network.Wai

4import Network.Wai.Handler.Warp

5import Network.Wai.Conduit

6import Network.HTTP.Types

7import Conduit

8import Data.ByteString.Builder (byteString)

9import Control.Monad.Trans.Resource

11main :: IO ()

12main = run 3000 app

14app :: Application

15app _req respond =

16 runResourceT $ withInternalState $ \is ->

17 respond $ responseSource status200 [] $

18 transPipe (`runInternalState` is) (sourceFile "Main.hs") .|

19 mapC (Chunk . byteString)