summaryrefslogtreecommitdiff
path: root/Property/Reboot.hs
blob: 668a7a4997dfbcad249c235b704ec0889b217dae (plain)
1
2
3
4
5
6
7
8
module Property.Reboot where

import Property
import Utility.SafeCommand

{- Use eg, "+5" to reboot in 5 minutes. -}
scheduled :: String -> Property
scheduled rebootwhen = cmdProperty "shutdown" [ Param "-r", Param rebootwhen ]