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

Using CL.map in readIt

Browse Source
This commit is contained in:
HugoDaniel 2013-11-07 11:15:40 +00:00
parent ec8edc92f1
commit 178a0c8052
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-bin/HsFile.hs
View File

@ -1,8 +1,9 @@
{-# LANGUAGE TupleSections, OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module HsFile (mkHsFile) where module HsFile (mkHsFile) where
import Text.ProjectTemplate (createTemplate) import Text.ProjectTemplate (createTemplate)
import Data.Conduit import Data.Conduit
( ($$), (=$), runResourceT, ResourceT, ConduitM, awaitForever, yield ) ( ($$), (=$), runResourceT, ResourceT, ConduitM, awaitForever, yield )
import qualified Data.Conduit.List as CL
import Data.Conduit.Filesystem (traverse, sourceFile) import Data.Conduit.Filesystem (traverse, sourceFile)
import Prelude hiding (FilePath) import Prelude hiding (FilePath)
import Filesystem.Path ( FilePath ) import Filesystem.Path ( FilePath )
@ -18,7 +19,5 @@ mkHsFile = runResourceT $ traverse False "."
-- Reads a filepath from upstream and dumps a pair of (filepath, filecontents) -- Reads a filepath from upstream and dumps a pair of (filepath, filecontents)
readIt :: ConduitM FilePath (FilePath, ResourceT IO BS.ByteString) (ResourceT IO) () readIt :: ConduitM FilePath (FilePath, ResourceT IO BS.ByteString) (ResourceT IO) ()
readIt = awaitForever $ \i -> do bs <- liftIO $ BS.readFile (encodeString i) readIt = CL.map $ \i -> (i, liftIO $ BS.readFile $ encodeString i)
yield (i, return bs)