diff options
| author | Joey Hess <joeyh@joeyh.name> | 2014-12-08 01:07:31 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-08 01:07:31 -0400 |
| commit | 3c7219874b8b44c93fe8fd29462dc0bb3336967c (patch) | |
| tree | a13c8cb04f0baa7d11537ce4fbad41e91493f6e6 | |
| parent | 4e9b01a8a7005905ecec37d1cd6a11d3b27676b7 (diff) | |
finished accidentially committed bit
| -rw-r--r-- | src/Propellor/Property/Reboot.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Propellor/Property/Reboot.hs b/src/Propellor/Property/Reboot.hs index c2628689..ac6f3a44 100644 --- a/src/Propellor/Property/Reboot.hs +++ b/src/Propellor/Property/Reboot.hs @@ -20,11 +20,8 @@ atEnd force resultok = property "scheduled reboot at end of propellor run" $ do return NoChange where atend r - | resultok r = liftIO $ - ifM (boolSystem "reboot" rebootparams) - ( return MadeChange - , return FailedChange - ) + | resultok r = liftIO $ toResult + <$> boolSystem "reboot" rebootparams | otherwise = do warningMessage "Not rebooting, due to status of propellor run." return FailedChange |