wolf 0.3.19 → 0.3.20
raw patch · 3 files changed
+96/−77 lines, 3 filesdep +basic-preludedep ~aesondep ~amazonkadep ~amazonka-swf
Dependencies added: basic-prelude
Dependency ranges changed: aeson, amazonka, amazonka-swf, base, bytestring, conduit, directory, exceptions, filemanip, filepath, http-types, lifted-async, lifted-base, optparse-generic, preamble, process, shakers, time, uuid, wolf, yaml
Files
- src/Network/AWS/Wolf/Ctx.hs +9/−0
- src/Network/AWS/Wolf/File.hs +3/−3
- wolf.cabal +84/−74
src/Network/AWS/Wolf/Ctx.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-}@@ -42,7 +43,11 @@ -- topSomeExceptionCatch :: MonadStatsCtx c m => SomeException -> m a topSomeExceptionCatch ex = do+#if MIN_VERSION_basic_prelude(0,6,1)+ statsIncrement "exception" [ "reason" =. textFromString (show ex) ]+#else statsIncrement "exception" [ "reason" =. show ex ]+#endif throwIO ex -- | Run bottom TransT.@@ -79,7 +84,11 @@ runAmazonCtx :: MonadConf c m => TransT AmazonCtx m a -> m a runAmazonCtx action = do c <- view confCtx+#if MIN_VERSION_amazonka(1,4,5)+ e <- newEnv $ FromEnv "AWS_ACCESS_KEY_ID" "AWS_SECRET_ACCESS_KEY" mempty mempty+#else e <- newEnv Oregon $ FromEnv "AWS_ACCESS_KEY_ID" "AWS_SECRET_ACCESS_KEY" mempty+#endif runBotTransT (AmazonCtx c e) action -- | Run amazon store context.
src/Network/AWS/Wolf/File.hs view
@@ -134,8 +134,8 @@ -- | Change to directory and then return to current directory. ---withCurrentDirectory :: MonadControl m => FilePath -> (FilePath -> m a) -> m a-withCurrentDirectory wd action =+withCurrentDirectory' :: MonadControl m => FilePath -> (FilePath -> m a) -> m a+withCurrentDirectory' wd action = bracket (liftIO getCurrentDirectory) (liftIO . setCurrentDirectory) $ \cd -> do liftIO $ setCurrentDirectory wd action cd@@ -145,7 +145,7 @@ withCurrentWorkDirectory :: MonadControl m => Text -> (FilePath -> m a) -> m a withCurrentWorkDirectory uid action = withWorkDirectory uid $ \wd ->- withCurrentDirectory wd $ \cd -> do+ withCurrentDirectory' wd $ \cd -> do copyDirectoryRecursive cd wd action wd
wolf.cabal view
@@ -1,86 +1,96 @@-name: wolf-version: 0.3.19-synopsis: Amazon Simple Workflow Service Wrapper.-description: Wolf is a wrapper around Amazon Simple Workflow Service.-homepage: https://github.com/swift-nav/wolf-license: MIT-license-file: LICENSE-author: Swift Navigation Inc.-maintainer: Mark Fine <dev@swiftnav.com>-copyright: Copyright (C) 2015-2016 Swift Navigation, Inc.-category: Network, AWS, Cloud, Distributed Computing-build-type: Simple-cabal-version: >= 1.22+name: wolf+version: 0.3.20+cabal-version: >=1.22+build-type: Simple+license: MIT+license-file: LICENSE+copyright: Copyright (C) 2015-2016 Swift Navigation, Inc.+maintainer: Mark Fine <dev@swiftnav.com>+homepage: https://github.com/swift-nav/wolf+synopsis: Amazon Simple Workflow Service Wrapper.+description:+ Wolf is a wrapper around Amazon Simple Workflow Service.+category: Network, AWS, Cloud, Distributed Computing+author: Swift Navigation Inc. source-repository head- type: git- location: git@github.com:swift-nav/wolf.git+ type: git+ location: git@github.com:swift-nav/wolf.git library- exposed-modules: Network.AWS.Wolf- other-modules: Network.AWS.Wolf.Act- , Network.AWS.Wolf.Count- , Network.AWS.Wolf.Ctx- , Network.AWS.Wolf.Decide- , Network.AWS.Wolf.File- , Network.AWS.Wolf.Prelude- , Network.AWS.Wolf.SWF- , Network.AWS.Wolf.Types- , Network.AWS.Wolf.Types.Ctx- , Network.AWS.Wolf.Types.Product- , Network.AWS.Wolf.Types.Sum- default-language: Haskell2010- hs-source-dirs: src- ghc-options: -Wall- build-depends: aeson- , amazonka- , amazonka-swf- , base == 4.8.*- , bytestring- , conduit- , directory- , exceptions- , filemanip- , filepath- , http-types- , lifted-async- , lifted-base- , preamble- , process- , time- , uuid- , yaml+ exposed-modules:+ Network.AWS.Wolf+ build-depends:+ aeson >=0.9.0.1,+ amazonka >=1.4.3,+ amazonka-swf >=1.4.3,+ base >=4.8 && <5,+ basic-prelude >=0.5.2,+ bytestring >=0.10.6.0,+ conduit >=1.2.6.6,+ directory >=1.2.2.0,+ exceptions >=0.8.2.1,+ filemanip >=0.3.6.3,+ filepath >=1.4.0.0,+ http-types >=0.9,+ lifted-async >=0.8.0.1,+ lifted-base >=0.2.3.6,+ preamble >=0.0.43,+ process >=1.2.3.0,+ time >=1.5.0.1,+ uuid >=1.3.12,+ yaml >=0.8.17.1+ default-language: Haskell2010+ hs-source-dirs: src+ other-modules:+ Network.AWS.Wolf.Act+ Network.AWS.Wolf.Count+ Network.AWS.Wolf.Ctx+ Network.AWS.Wolf.Decide+ Network.AWS.Wolf.File+ Network.AWS.Wolf.Prelude+ Network.AWS.Wolf.SWF+ Network.AWS.Wolf.Types+ Network.AWS.Wolf.Types.Ctx+ Network.AWS.Wolf.Types.Product+ Network.AWS.Wolf.Types.Sum+ ghc-options: -Wall executable wolf-actor- hs-source-dirs: main- main-is: actor.hs- ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall- build-depends: base- , wolf- , optparse-generic- default-language: Haskell2010+ main-is: actor.hs+ build-depends:+ base >=4.8.2.0,+ wolf >=0.3.20,+ optparse-generic >=1.2.1+ default-language: Haskell2010+ hs-source-dirs: main+ ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall executable wolf-decider- hs-source-dirs: main- main-is: decider.hs- ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall- build-depends: base- , wolf- , optparse-generic- default-language: Haskell2010+ main-is: decider.hs+ build-depends:+ base >=4.8.2.0,+ wolf >=0.3.20,+ optparse-generic >=1.2.1+ default-language: Haskell2010+ hs-source-dirs: main+ ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall executable wolf-counter- hs-source-dirs: main- main-is: counter.hs- ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall- build-depends: base- , wolf- , optparse-generic- default-language: Haskell2010+ main-is: counter.hs+ build-depends:+ base >=4.8.2.0,+ wolf >=0.3.20,+ optparse-generic >=1.2.1+ default-language: Haskell2010+ hs-source-dirs: main+ ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall executable shake-wolf- main-is: Shakefile.hs- ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall- build-depends: base == 4.8.*- , shakers- default-language: Haskell2010+ main-is: Shakefile.hs+ build-depends:+ base >=4.8 && <5,+ shakers >=0.0.25+ default-language: Haskell2010+ ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall+