exporting Source.
commit251359c9e387494ad8d106d296618382285e0709
authorKazu Yamamoto <kazu@iij.ad.jp>
dateWed 17 Jun 2015, 11:39 (11 years ago)
parent4be9041
warp/Network/Wai/Handler/Warp.hs+1
@@ -120,6 +120,7 @@ module Network.Wai.Handler.Warp (
120120 -- ** Date
121121 , module Network.Wai.Handler.Warp.Date
122122 -- ** Request and response
123+ , Source
123124 , recvRequest
124125 , sendResponse
125126 ) where
warp/Network/Wai/Handler/Warp/Types.hs+1
@@ -121,6 +121,7 @@ data InternalInfo = InternalInfo {
121121
122122----------------------------------------------------------------
123123
124+-- | Type for input streaming.
124125data Source = Source !(IORef ByteString) !(IO ByteString)
125126
126127mkSource :: IO ByteString -> IO Source