From 3c7219874b8b44c93fe8fd29462dc0bb3336967c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 8 Dec 2014 01:07:31 -0400 Subject: [PATCH] finished accidentially committed bit --- src/Propellor/Property/Reboot.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/Propellor/Property/Reboot.hs b/src/Propellor/Property/Reboot.hs index c262868..ac6f3a4 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