propellor spin
This commit is contained in:
parent
d1425be30a
commit
7ddb862176
|
@ -77,6 +77,7 @@ processChainOutput h = go Nothing
|
||||||
where
|
where
|
||||||
go lastline = do
|
go lastline = do
|
||||||
v <- catchMaybeIO (hGetLine h)
|
v <- catchMaybeIO (hGetLine h)
|
||||||
|
debug ["read from chained propellor: ", show v]
|
||||||
case v of
|
case v of
|
||||||
Nothing -> case lastline of
|
Nothing -> case lastline of
|
||||||
Nothing -> pure FailedChange
|
Nothing -> pure FailedChange
|
||||||
|
|
Loading…
Reference in New Issue