From 160b598756ad08c0d4e8d7da038a63d988e0ab7a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 4 Apr 2014 16:23:20 -0400 Subject: add a lock --- Propellor/CmdLine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 3974f1d5..560e774d 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -76,7 +76,7 @@ defaultMain getprops = do ( onlyProcess $ withprops host ensureProperties , go True (Spin host) ) - go False (Boot host) = withprops host $ boot + go False (Boot host) = onlyProcess $ withprops host $ boot withprops host a = maybe (unknownhost host) a $ headMaybe $ catMaybes $ map (\get -> get host) getprops -- cgit v1.2.3