add a lock

This commit is contained in:
Joey Hess 2014-04-04 16:23:20 -04:00
parent 409dea5709
commit 160b598756
1 changed files with 1 additions and 1 deletions

View File

@ -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