summaryrefslogtreecommitdiff
path: root/src/Propellor/Engine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-07-23 12:27:38 -0400
committerJoey Hess2014-07-23 12:27:38 -0400
commit41a23743e7f5b90c12a2b2ef19ccb3dcbb7bfef9 (patch)
tree9babc78e0570a74ca04c82cac5debff27f6ff526 /src/Propellor/Engine.hs
parentde50ea480dee911f0c65cce2425145561566b1fe (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Engine.hs')
-rw-r--r--src/Propellor/Engine.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs
index b4260e9f..ed886ef7 100644
--- a/src/Propellor/Engine.hs
+++ b/src/Propellor/Engine.hs
@@ -44,8 +44,8 @@ ensureProperty = catchPropellor . propertySatisfy
-- For example, `fromHost hosts "otherhost" getSshPubKey`
fromHost :: [Host] -> HostName -> Propellor a -> Propellor (Maybe a)
fromHost l hn getter = case findHost l hn of
- Nothing -> do
- liftIO $ print "fromHost found Nothing"
- return Nothing
- Just h -> liftIO $ Just <$>
- runReaderT (runWithHost getter) h
+ Nothing -> return Nothing
+ Just h -> liftIO $ do
+ print ("fromHost", hn, "using", h)
+ Just <$>
+ runReaderT (runWithHost getter) h