From 526bcbf093af665f316a0ba4d1a836786ab66dcf Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 2 Apr 2014 12:13:39 -0400
Subject: type-safe reversions

---
 Propellor/CmdLine.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Propellor/CmdLine.hs')

diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index c267e7d4..d1a758ab 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -245,14 +245,14 @@ fromMarked marker s
 	matches = filter (marker `isPrefixOf`) $ lines s
 
 boot :: [Property] -> IO ()
-boot props = do
+boot ps = do
 	sendMarked stdout statusMarker $ show Ready
 	reply <- hGetContentsStrict stdin
 
 	makePrivDataDir
 	maybe noop (writeFileProtected privDataLocal) $
 		fromMarked privDataMarker reply
-	ensureProperties props
+	ensureProperties ps
 
 addKey :: String -> IO ()
 addKey keyid = exitBool =<< allM id [ gpg, gitadd, gitcommit ]
-- 
cgit v1.3-2-g0d8e