loup 0.0.12 → 0.0.13
raw patch · 4 files changed
+9/−15 lines, 4 filesdep −basic-preludedep ~loupdep ~preamblePVP ok
version bump matches the API change (PVP)
Dependencies removed: basic-prelude
Dependency ranges changed: loup, preamble
API changes (from Hackage documentation)
Files
- Shakefile.hs +2/−2
- loup.cabal +5/−6
- src/Network/AWS/Loup/Converge.hs +1/−6
- src/Network/AWS/Loup/Decide.hs +1/−1
Shakefile.hs view
@@ -16,12 +16,12 @@ main :: IO () main = shakeMain $ do let pats =- [ "stack.yaml"+ [ "stack*.yaml" , "Shakefile.hs" , "main//*.hs" , "src//*.hs" ]- pats' = delete "stack.yaml" pats+ pats' = delete "stack*.yaml" pats -- | Haskell rules. --
loup.cabal view
@@ -1,5 +1,5 @@ name: loup-version: 0.0.12+version: 0.0.13 cabal-version: >=1.22 build-type: Simple license: MIT@@ -25,12 +25,11 @@ 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.10, lifted-async >=0.9.1.1, lifted-base >=0.2.3.11,- preamble >=0.0.46,+ preamble >=0.0.47, time >=1.5.0.1, turtle >=1.3.6, unordered-containers >=0.2.8.0,@@ -55,7 +54,7 @@ main-is: actor.hs build-depends: base >=4.8.2.0,- loup >=0.0.12,+ loup >=0.0.13, optparse-generic >=1.1.5 default-language: Haskell2010 hs-source-dirs: main@@ -65,7 +64,7 @@ main-is: decider.hs build-depends: base >=4.8.2.0,- loup >=0.0.12,+ loup >=0.0.13, optparse-generic >=1.1.5 default-language: Haskell2010 hs-source-dirs: main@@ -75,7 +74,7 @@ main-is: converger.hs build-depends: base >=4.8.2.0,- loup >=0.0.12,+ loup >=0.0.13, optparse-generic >=1.1.5 default-language: Haskell2010 hs-source-dirs: main
src/Network/AWS/Loup/Converge.hs view
@@ -1,4 +1,3 @@-{-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-}@@ -57,11 +56,7 @@ wids <- fromList <$> listWorkflows domain activity let fold kvs as action = do let g k v bs = do-#if MIN_VERSION_basic_prelude(0,6,1)- let k' = k -.- textFromString (show (hash v))-#else- let k' = k -.- show (hash v)-#endif+ let k' = k -.- textShow (hash v) if k' `member` bs then return $ k' `delete` bs else action k' v >> return bs ifoldrM g as kvs wids' <- fold (pool ^. pWorkers) wids $ \wid input -> do
src/Network/AWS/Loup/Decide.hs view
@@ -127,7 +127,7 @@ nothing :: MonadDecisionCtx c m => m [Decision] nothing = do events <- view dcEvents- traceError "none" [ "events" .= (show . view heEventType <$> events) ]+ traceError "none" [ "events" .= (textShow . view heEventType <$> events) ] return mempty -- | Schedule decision based on history events.