haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed: use foldC

Browse Source
This commit is contained in:
ncaq 2018-04-24 12:55:55 +09:00
parent 74ce4c57ff
commit e664ae2e0e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Core/Handler.hs
View File

@ -254,7 +254,7 @@ import Data.CaseInsensitive (CI, original)
import qualified Data.Conduit.List as CL import qualified Data.Conduit.List as CL
import Control.Monad.Trans.Resource (MonadResource, InternalState, runResourceT, withInternalState, getInternalState, liftResourceT, resourceForkIO) import Control.Monad.Trans.Resource (MonadResource, InternalState, runResourceT, withInternalState, getInternalState, liftResourceT, resourceForkIO)
import qualified System.PosixCompat.Files as PC import qualified System.PosixCompat.Files as PC
import Conduit ((.|), runConduit, sinkLazy) import Conduit ((.|), runConduit, foldC)
import Data.Conduit (ConduitT, transPipe, Flush (Flush), yield, Void) import Data.Conduit (ConduitT, transPipe, Flush (Flush), yield, Void)
import qualified Yesod.Core.TypeCache as Cache import qualified Yesod.Core.TypeCache as Cache
import qualified Data.Word8 as W8 import qualified Data.Word8 as W8
@ -1392,7 +1392,7 @@ fileSource = transPipe liftResourceT . fileSourceRaw
-- --
-- @since 1.6.5 -- @since 1.6.5
fileSourceByteString :: MonadResource m => FileInfo -> m S.ByteString fileSourceByteString :: MonadResource m => FileInfo -> m S.ByteString
fileSourceByteString fileInfo = L.toStrict <$> runConduit (fileSource fileInfo .| sinkLazy) fileSourceByteString fileInfo = runConduit $ fileSource fileInfo .| foldC
-- | Provide a pure value for the response body. -- | Provide a pure value for the response body.
-- --