Property/Reboot.hs


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 ]