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

Fix build for project-template < 0.2

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-17 11:25:12 +03:00
parent ef9322914e
commit 814157a018
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-bin/HsFile.hs
View File

@ -9,14 +9,13 @@ import Control.Monad.Trans.Resource (ResourceT, runResourceT)
import qualified Data.Conduit.List as CL import qualified Data.Conduit.List as CL
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Data.String (fromString)
mkHsFile :: IO () mkHsFile :: IO ()
mkHsFile = runResourceT $ sourceDirectory "." mkHsFile = runResourceT $ sourceDirectory "."
$$ readIt $$ readIt
=$ createTemplate =$ createTemplate
=$ awaitForever (liftIO . BS.putStr) =$ awaitForever (liftIO . BS.putStr)
where
-- 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 = CL.map $ \i -> (fromString i, liftIO $ BS.readFile i)
readIt = CL.map $ \i -> (i, liftIO $ BS.readFile i)

2
yesod-bin/yesod-bin.cabal
View File

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