summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Reboot.hs
diff options
context:
space:
mode:
authorJoey Hess2014-12-08 01:07:31 -0400
committerJoey Hess2014-12-08 01:07:31 -0400
commit3c7219874b8b44c93fe8fd29462dc0bb3336967c (patch)
treea13c8cb04f0baa7d11537ce4fbad41e91493f6e6 /src/Propellor/Property/Reboot.hs
parent4e9b01a8a7005905ecec37d1cd6a11d3b27676b7 (diff)
finished accidentially committed bit
Diffstat (limited to 'src/Propellor/Property/Reboot.hs')
-rw-r--r--src/Propellor/Property/Reboot.hs7
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