diff options
Diffstat (limited to 'src')
| -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 |