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 Control.Monad.Trans.Resource (MonadResource, InternalState, runResourceT, withInternalState, getInternalState, liftResourceT, resourceForkIO)
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 Data.Word8 as W8
import qualified Data.Foldable as Fold
@ -1369,7 +1370,7 @@ fileSource = transPipe liftResourceT . fileSourceRaw
--
-- @since 1.6.4
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.
--