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

cleaned: use runConduit and .| instead of connect

Browse Source 
from code review.
This commit is contained in:
ncaq 2018-04-17 17:58:49 +09:00
parent 1eb553f92c
commit 11159f3a75
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -253,7 +253,8 @@ 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 Data.Conduit (ConduitT, connect, transPipe, Flush (Flush), yield, Void) import Conduit ((.|), runConduit)
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
import qualified Data.Foldable as Fold import qualified Data.Foldable as Fold
@ -1369,7 +1370,7 @@ fileSource = transPipe liftResourceT . fileSourceRaw
-- --
-- @since 1.6.4 -- @since 1.6.4
fileSourceByteString :: MonadResource m => FileInfo -> m S.ByteString fileSourceByteString :: MonadResource m => FileInfo -> m S.ByteString
fileSourceByteString fileInfo = fileSource fileInfo `connect` CL.foldMap id fileSourceByteString fileInfo = runConduit $ fileSource fileInfo .| CL.foldMap id
-- | Provide a pure value for the response body. -- | Provide a pure value for the response body.
-- --