cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-07-23 12:33:44 -04:00
parent 3d617fd98b
commit ac46ab4d0c
Failed to extract signature
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Engine.hs
View File

@ -45,7 +45,5 @@ ensureProperty = catchPropellor . propertySatisfy
fromHost :: [Host] -> HostName -> Propellor a -> Propellor (Maybe a) fromHost :: [Host] -> HostName -> Propellor a -> Propellor (Maybe a)
fromHost l hn getter = case findHost l hn of fromHost l hn getter = case findHost l hn of
Nothing -> return Nothing Nothing -> return Nothing
Just h -> liftIO $ do Just h -> liftIO $ Just <$>
print ("fromHost", hn, "using", h)
Just <$>
runReaderT (runWithHost getter) h runReaderT (runWithHost getter) h