hail 0.1.0.1 → 0.1.0.2

raw patch · 3 files changed

+14/−10 lines, 3 files

Files

• ChangeLog.md +6/−2
• Main.hs +7/−7
• hail.cabal +1/−1

@@ -1,9 +1,13 @@ # Revision history for hail -## 0.1.0.0  -- 2017-04-08+## 0.1.0.2  -- 2017-05-16 -* Initial release+* Fix bug in --oneshot that made it actually --noshot  ## 0.1.0.1  -- 2017-04-08  * Add README to tarball.++## 0.1.0.0  -- 2017-04-08++* Initial release

@@ -75,18 +75,18 @@   opts <- execParser optsParserInfo   let profilePath = "/nix/var/nix/profiles" </> (profile opts)       uri = jobURI opts-      cont m_creds = case pollPeriod opts of+  m_creds <- loadCredsFromNetrc (netrcFile opts) uri+  createDirectoryIfMissing True $ takeDirectory profilePath+  -- Try to activate on initial startup, but ignore failures.+  activate profilePath ActivateIgnoreErrors+  let cont = case pollPeriod opts of         Nothing -> const $ return ()         Just period -> \delay -> do           case delay of             Delay -> threadDelay $ minutesToMicroseconds period             NoDelay -> return ()-          pollLoop profilePath uri m_creds (cont m_creds)-  m_creds <- loadCredsFromNetrc (netrcFile opts) uri-  createDirectoryIfMissing True $ takeDirectory profilePath-  -- Try to activate on initial startup, but ignore failures.-  activate profilePath ActivateIgnoreErrors-  cont m_creds NoDelay+          pollLoop profilePath uri m_creds cont+  pollLoop profilePath uri m_creds cont  -- | Convert minutes to microseconds minutesToMicroseconds :: Int -> Int

@@ -1,5 +1,5 @@ name:                hail-version:             0.1.0.1+version:             0.1.0.2 synopsis:          A service for pull-based continuous deployment based on hydra. description: