git.iko.soy/typeable/wai
on master help sign in
Minor changes
commit23931d435c30f07df52078b8bf799f6e5c8e147f authorMichael Snoyman <michael@snoyman.com> dateSat 28 Jan 2012, 23:54 (15 years ago) parent6f8cc64
3 files changed+5−3
compare with master
unifiedsplit
conduit+1−1 package-list.sh+1 warp/pong.hs+3−2
conduit+1−1

Submodule changed.

package-list.sh+1
@@ -3,6 +3,7 @@
33pkgs=( ./conduit/conduit
44 ./conduit/blaze-builder-conduit
55 ./conduit/zlib-conduit
6+ ./conduit/attoparsec-conduit
67 ./wai
78 ./wai-test
89 ./wai-extra
warp/pong.hs+3−2
@@ -4,6 +4,7 @@ import Network.Wai.Handler.Warp
44import Network.HTTP.Types (status200)
55import Blaze.ByteString.Builder (copyByteString)
66import Data.Monoid
7+import qualified Data.Conduit as C
78import qualified Data.Conduit.List as CL
89
910main = run 3000 app
@@ -36,13 +37,13 @@ sourceWithLen = ResponseSource
3637 [ ("Content-Type", "text/plain")
3738 , ("Content-Length", "4")
3839 ]
39− $ CL.sourceList [copyByteString "PONG"]
40+ $ CL.sourceList [C.Chunk $ copyByteString "PONG"]
4041
4142sourceNoLen = ResponseSource
4243 status200
4344 [ ("Content-Type", "text/plain")
4445 ]
45− $ CL.sourceList [copyByteString "PONG"]
46+ $ CL.sourceList [C.Chunk $ copyByteString "PONG"]
4647
4748fileWithLen = ResponseFile
4849 status200