summaryrefslogtreecommitdiff
path: root/src/Propellor/Engine.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Engine.hs')
-rw-r--r--src/Propellor/Engine.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs
index a3fc0f30..b4260e9f 100644
--- a/src/Propellor/Engine.hs
+++ b/src/Propellor/Engine.hs
@@ -44,6 +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 -> return Nothing
+ Nothing -> do
+ liftIO $ print "fromHost found Nothing"
+ return Nothing
Just h -> liftIO $ Just <$>
runReaderT (runWithHost getter) h