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:11 -04:00
parent 41a23743e7
commit 3d617fd98b
Failed to extract signature
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Info.hs
View File

@ -76,8 +76,8 @@ hostMap :: [Host] -> M.Map HostName Host
hostMap l = M.fromList $ zip (map hostName l) l hostMap l = M.fromList $ zip (map hostName l) l
aliasMap :: [Host] -> M.Map HostName Host aliasMap :: [Host] -> M.Map HostName Host
aliasMap l = M.fromList $ concat $ map (flip zip l) $ aliasMap = M.fromList . concat .
map (S.toList . _aliases . hostInfo) l map (\h -> map (\aka -> (aka, h)) $ S.toList $ _aliases $ hostInfo h)
findHost :: [Host] -> HostName -> Maybe Host findHost :: [Host] -> HostName -> Maybe Host
findHost l hn = maybe (findAlias l hn) Just (M.lookup hn (hostMap l)) findHost l hn = maybe (findAlias l hn) Just (M.lookup hn (hostMap l))