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

Merge branch 'master' of ssh://propellor.branchable.com

This commit is contained in:
Joey Hess 2015-06-16 14:55:01 -04:00
parent d353db60ad a144abfc06
commit 29e2da7c8a
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
doc/forum/passing_host_address_dynamically_to_propellor/comment_5_cd61e6fb0d5694575edb95728f0c8370._comment Normal file
View File

@ -0,0 +1,23 @@
[[!comment format=mdwn
username="arnaud@30aba4d9f1742050874551d3ddc55ca8694809f8"
nickname="arnaud"
subject="Works like a charm..."
date="2015-06-11T19:19:07Z"
content="""
I implemented this feature using a file, aptly named `hosts` that is versioned in the repo and populated (at the moment manually but will be automatic...) when boxes are created in DO.
Then the following main will extract the information and create hosts config to be passed to main from propellor, reading the needed file:
```
main :: IO ()
main = do
h <- map words <$> lines <$> readFile \"hosts\" `catch` (\ (_ :: IOException) -> return \"\")
let hosts = map selectHost h
defaultMain hosts
selectHost :: [String] -> Host
selectHost [\"prod\",ip,sha1] = host ip & Lending.lendingHost sha1
selectHost [\"prod\",ip] = host ip & Lending.lendingHost currentSha1
selectHost [\"monitor\",name,ip] = host name & Monitoring.monitoringHost ip
selectHost h = error $ \"doesn't know how to handle host definition \" ++ show h
```
"""]]