wolf 0.3.7 → 0.3.8

raw patch · 4 files changed

+14/−10 lines, 4 files

Files

• Shakefile.hs +7/−3
• src/Network/AWS/Wolf/Decide.hs +3/−3
• src/Network/AWS/Wolf/File.hs +1/−1
• wolf.cabal +3/−3

@@ -22,17 +22,21 @@         , "src//*.hs"         ] +  -- | Haskell rules.+  --+  hsRules "."+   -- | Cabal rules.   ---  cabalRules "wolf.cabal"+  cabalRules "." "wolf.cabal"    -- | Stack rules.   ---  stackRules pats+  stackRules "." pats    -- | sanity   ---  fake' pats "sanity" $ const $+  fake "." pats "sanity" $ const $     need [ fakeFile "build-error", fakeFile "lint" ]    -- | Default things to run.

@@ -47,7 +47,7 @@ completed he = do   traceInfo "completed" mempty   hes <- view adcEvents-  (input, name) <- maybeThrowIO "No Completed Information" $ do+  (input, name) <- maybeThrowIO' "No Completed Information" $ do     atcea <- he ^. heActivityTaskCompletedEventAttributes     he'   <- flip find hes $ (== atcea ^. atceaScheduledEventId) . view heEventId     name  <- view atName . view atseaActivityType <$> he' ^. heActivityTaskScheduledEventAttributes@@ -61,7 +61,7 @@ begin :: MonadAmazonDecision c m => HistoryEvent -> m Decision begin he = do   traceInfo "begin" mempty-  input <- maybeThrowIO "No Start Information" $+  input <- maybeThrowIO' "No Start Information" $     view weseaInput <$> he ^. heWorkflowExecutionStartedEventAttributes   p <- view adcPlan   maybe (end input) (next input) $ headMay (p ^. pTasks)@@ -73,7 +73,7 @@   traceInfo "schedule" mempty   hes <- view adcEvents   f hes >>=-    maybeThrowIO "No Select Information"+    maybeThrowIO' "No Select Information"   where     f []       = return Nothing     f (he:hes) =

@@ -100,7 +100,7 @@ readYaml file =   liftIO $ withFile file ReadMode $ \h -> do     body <- BS.hGetContents h-    eitherThrowIO $ decodeEither body+    eitherThrowIO' $ decodeEither body  -- | Get a temporary timestamped work directory. --

@@ -1,5 +1,5 @@ name:                  wolf-version:               0.3.7+version:               0.3.8 synopsis:              Amazon Simple Workflow Service Wrapper. description:           Wolf is a wrapper around Amazon Simple Workflow Service. homepage:              https://github.com/swift-nav/wolf@@ -37,7 +37,7 @@                      , amazonka-core                      , amazonka-s3                      , amazonka-swf-                     , base >= 4.8 && < 4.9+                     , base == 4.8.*                      , bytestring                      , conduit                      , conduit-combinators@@ -78,6 +78,6 @@ executable shake-wolf   main-is:             Shakefile.hs   ghc-options:         -threaded -rtsopts -with-rtsopts=-N -Wall-  build-depends:       base >= 4.8 && < 4.9+  build-depends:       base == 4.8.*                      , shakers   default-language:    Haskell2010