propellor spin
This commit is contained in:
parent
3d013c4892
commit
385a1de0ce
|
@ -30,6 +30,7 @@ withPrivData field a = maybe missing a =<< getPrivData field
|
||||||
where
|
where
|
||||||
missing = do
|
missing = do
|
||||||
hPutStrLn stderr $ "** Missing privdata " ++ show field
|
hPutStrLn stderr $ "** Missing privdata " ++ show field
|
||||||
|
hFlush stderr
|
||||||
return FailedChange
|
return FailedChange
|
||||||
|
|
||||||
getPrivData :: PrivDataField -> IO (Maybe String)
|
getPrivData :: PrivDataField -> IO (Maybe String)
|
||||||
|
|
Loading…
Reference in New Issue