From 0e1b587442fb78bcbf4886b53b85ab64b45215b0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 29 Mar 2014 23:24:40 -0400
Subject: install systemd on clam and then reboot

---
 Property/Reboot.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 Property/Reboot.hs

(limited to 'Property/Reboot.hs')

diff --git a/Property/Reboot.hs b/Property/Reboot.hs
new file mode 100644
index 00000000..668a7a49
--- /dev/null
+++ b/Property/Reboot.hs
@@ -0,0 +1,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 ]
-- 
cgit v1.3-2-g0d8e