@@ -84,6 +84,8 @@ import Network.Socket (SockAddr (SockAddrInet))
8484import Network.Wai.Internal
8585import qualified System.IO as IO
8686
87+----------------------------------------------------------------
88+
8789-- | Creating 'Response' from a file.
8890responseFile :: H.Status -> H.ResponseHeaders -> FilePath -> Maybe FilePart -> Response
8991responseFile = ResponseFile
@@ -118,6 +120,13 @@ responseBuilder = ResponseBuilder
118120responseSource :: H.Status -> H.ResponseHeaders -> C.Source IO (C.Flush Builder) -> Response
119121responseSource st hs src = ResponseSource st hs ($ src)
120122
123+-- | Creating 'Response' from 'L.ByteString'. This is a wrapper for
124+-- 'responseBuilder'.
125+responseLBS :: H.Status -> H.ResponseHeaders -> L.ByteString -> Response
126+responseLBS s h = ResponseBuilder s h . fromLazyByteString
127+
128+----------------------------------------------------------------
129+
121130-- | Accessing 'H.Status' in 'Response'.
122131responseStatus :: Response -> H.Status
123132responseStatus (ResponseFile s _ _ _) = s
@@ -139,10 +148,7 @@ sourceFilePart :: IO.Handle -> FilePart -> C.Source IO B.ByteString
139148sourceFilePart handle (FilePart offset count _) =
140149 CB.sourceHandleRange handle (Just offset) (Just count)
141150
142−-- | Creating 'Response' from 'L.ByteString'. This is a wrapper for
143−-- 'responseBuilder'.
144−responseLBS :: H.Status -> H.ResponseHeaders -> L.ByteString -> Response
145−responseLBS s h = ResponseBuilder s h . fromLazyByteString
151+----------------------------------------------------------------
146152
147153-- | The WAI application.
148154type Application = Request -> IO Response