yesod-bin 1.4.9 → 1.4.9.1

raw patch · 2 files changed

+5/−6 lines, 2 files

Files

• HsFile.hs +4/−5
• yesod-bin.cabal +1/−1

@@ -9,14 +9,13 @@ import qualified Data.Conduit.List as CL import qualified Data.ByteString as BS import Control.Monad.IO.Class (liftIO)+import Data.String (fromString)  mkHsFile :: IO () mkHsFile = runResourceT $ sourceDirectory "."         $$ readIt         =$ createTemplate          =$ awaitForever (liftIO . BS.putStr)---- Reads a filepath from upstream and dumps a pair of (filepath, filecontents)-readIt :: ConduitM FilePath (FilePath, ResourceT IO BS.ByteString) (ResourceT IO) ()-readIt = CL.map $ \i -> (i, liftIO $ BS.readFile i)-+  where+    -- Reads a filepath from upstream and dumps a pair of (filepath, filecontents)+    readIt = CL.map $ \i -> (fromString i, liftIO $ BS.readFile i)

@@ -1,5 +1,5 @@ name:            yesod-bin-version:         1.4.9+version:         1.4.9.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>