@@ -43,7 +43,7 @@ fileRange :: H.Status -> H.ResponseHeaders -> FilePath
4343 -> Maybe FilePart -> Maybe HeaderValue
4444 -> IO (Either SomeException
4545 (H.Status, H.ResponseHeaders, Integer, Integer))
46−fileRange s0 hs0 path mPart mRange = liftIO . try $ do
46+fileRange s0 hs0 path mPart mRange = try $ do
4747 fileSize <- checkFileSize mPart
4848 let (beg, end, len, isEntire) = checkPartRange fileSize mPart mRange
4949 let hs1 = addContentLength len hs0
@@ -147,12 +147,12 @@ sendResponse conn ii restore req reqidxhdr (ResponseFile s0 hs0 path mPart) =
147147 mRange = reqidxhdr ! idxRange
148148
149149 sendResponseEither (Right (s, lengthyHeaders, beg, len))
150− | hasBody s req = liftIO $ do
150+ | hasBody s req = do
151151 lheader <- composeHeader version s lengthyHeaders
152152 connSendFile conn path beg len (T.tickle th) [lheader]
153153 T.tickle th
154154 return isPersist
155− | otherwise = liftIO $ sendResponseNoBody conn th version s hs isPersist
155+ | otherwise = sendResponseNoBody conn th version s hs isPersist
156156 where
157157 version = httpVersion req
158158 (isPersist,_) = infoFromRequest req reqidxhdr
@@ -188,7 +188,7 @@ sendResponse conn ii restore req reqidxhdr (ResponseBuilder s hs0 b)
188188
189189sendResponse conn ii restore req reqidxhdr (ResponseSource s hs0 withBodyFlush)
190190 | hasBody s req = withBodyFlush $ \bodyFlush -> restore $ do
191− header <- liftIO $ composeHeaderBuilder version s hs needsChunked
191+ header <- composeHeaderBuilder version s hs needsChunked
192192 let src = CL.sourceList [header] `mappend` cbody bodyFlush
193193 src $$ builderToByteString =$ connSink conn th
194194 return isKeepAlive