Fix a build failure
This commit is contained in:
parent
2c4e19e0b6
commit
58407c292e
@ -1,3 +1,7 @@
|
|||||||
|
## 1.5.0.1
|
||||||
|
|
||||||
|
* Fix build failure
|
||||||
|
|
||||||
## 1.5.0
|
## 1.5.0
|
||||||
|
|
||||||
Rewrite of `yesod devel` to take advantage of Stack for a simpler codebase.
|
Rewrite of `yesod devel` to take advantage of Stack for a simpler codebase.
|
||||||
|
|||||||
@ -320,8 +320,8 @@ devel opts passThroughArgs = do
|
|||||||
-- make sure that all content to stdout or stderr from the build
|
-- make sure that all content to stdout or stderr from the build
|
||||||
-- process is piped to the actual stdout and stderr handles.
|
-- process is piped to the actual stdout and stderr handles.
|
||||||
withProcess_ procConfig $ \p -> do
|
withProcess_ procConfig $ \p -> do
|
||||||
let helper getter h = runConduit
|
let helper getter h =
|
||||||
$ getter p
|
getter p
|
||||||
$$ CL.iterM (\_ -> atomically $ writeTVar appPortVar (-1))
|
$$ CL.iterM (\_ -> atomically $ writeTVar appPortVar (-1))
|
||||||
=$ CB.sinkHandle h
|
=$ CB.sinkHandle h
|
||||||
race_ (helper getStdout stdout) (helper getStderr stderr)
|
race_ (helper getStdout stdout) (helper getStderr stderr)
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
name: yesod-bin
|
name: yesod-bin
|
||||||
version: 1.5.0
|
version: 1.5.0.1
|
||||||
license: MIT
|
license: MIT
|
||||||
license-file: LICENSE
|
license-file: LICENSE
|
||||||
author: Michael Snoyman <michael@snoyman.com>
|
author: Michael Snoyman <michael@snoyman.com>
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user