linode 0.1.0.2 → 0.1.0.3

raw patch · 2 files changed

+4/−3 lines, 2 filesdep ~retry

Dependency ranges changed: retry

Files

• linode.cabal +2/−2
• src/Network/Linode.hs +2/−1

@@ -1,5 +1,5 @@ name:                linode-version:             0.1.0.2+version:             0.1.0.3 synopsis:            Bindings to the Linode API description:         Haskell bindings to the Linode API. Rent servers hourly or monthly.                      .@@ -30,7 +30,7 @@                       ,errors >= 2.0.0                       ,lens                       ,process-                      ,retry >= 0.5+                      ,retry >= 0.5 && < 0.7                       ,safe                       ,text >= 1.2.1                       ,transformers

@@ -191,9 +191,10 @@ A newly created Linode is unreachable during a few seconds. -} waitForSSH :: Address -> IO ()-waitForSSH address = R.recoverAll retryPolicy $ P.callCommand $ "ssh -q -o StrictHostKeyChecking=no root@" <> ip address <> " exit"+waitForSSH address = R.recoverAll retryPolicy command   where retryPolicy = R.constantDelay oneSecond <> R.limitRetries 100         oneSecond = 1000 * 1000+        command = P.callCommand $ "ssh -q -o StrictHostKeyChecking=no root@" <> ip address <> " exit"   {-|