summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarkfine <>2018-04-04 22:28:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-04-04 22:28:00 (GMT)
commitb1c442e687f48c773d4eb416189f654f7c40ac93 (patch)
tree188bb57455017cacbbe96696085ceed9b6cd6df7
parent78eec727a44d6b41376029539e6a64ee1fd68f1b (diff)
version 0.3.430.3.43
-rwxr-xr-xShakefile.hs46
-rw-r--r--src/Network/AWS/Wolf/Decide.hs2
-rw-r--r--wolf.cabal9
3 files changed, 2 insertions, 55 deletions
diff --git a/Shakefile.hs b/Shakefile.hs
deleted file mode 100755
index 2bc7e80..0000000
--- a/Shakefile.hs
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/env stack
-{- stack
- runghc
- --package shakers
- -}
-
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-
--- | Shake makefile for project.
---
-import Development.Shakers
-
--- | Main entry point.
---
-main :: IO ()
-main = shakeMain $ do
- let pats =
- [ "stack*.yaml"
- , "Shakefile.hs"
- , "main//*.hs"
- , "src//*.hs"
- ]
- pats' = delete "stack*.yaml" pats
-
- -- | Haskell rules.
- --
- hsRules "." pats'
-
- -- | Cabal rules.
- --
- cabalRules "." "wolf.cabal"
-
- -- | Stack rules.
- --
- stackRules "." pats
-
- -- | sanity
- --
- fake "." pats "sanity" $ const $ do
- need [ "build-error" ]
- need [ "docs", "lint", "weed" ]
-
- -- | Default things to run.
- --
- want [ "sanity", "format" ]
diff --git a/src/Network/AWS/Wolf/Decide.hs b/src/Network/AWS/Wolf/Decide.hs
index 0a3c955..730f792 100644
--- a/src/Network/AWS/Wolf/Decide.hs
+++ b/src/Network/AWS/Wolf/Decide.hs
@@ -55,7 +55,7 @@ completed he = do
pure (atcea ^. atceaResult, atsea ^. atseaTaskPriority, atsea ^. atseaActivityType . atName)
p <- view adcPlan
maybe (end input) (next input priority) $
- join $ fmap headMay $ tailMay $ flip dropWhile (p ^. pTasks) $ (/= name) . view tName
+ tailMay (flip dropWhile (p ^. pTasks) $ (/= name) . view tName) >>= headMay
-- | Beginning of workflow, start the first activity.
--
diff --git a/wolf.cabal b/wolf.cabal
index 4006be8..14b721e 100644
--- a/wolf.cabal
+++ b/wolf.cabal
@@ -1,5 +1,5 @@
name: wolf
-version: 0.3.42
+version: 0.3.43
synopsis: Amazon Simple Workflow Service Wrapper.
description: Wolf is a wrapper around Amazon Simple Workflow Service.
homepage: https://github.com/swift-nav/wolf
@@ -74,11 +74,4 @@ executable wolf-counter
build-depends: base
, wolf
, optparse-generic
- default-language: Haskell2010
-
-executable shake-wolf
- main-is: Shakefile.hs
- ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall
- build-depends: base >= 4.8 && < 5
- , shakers
default-language: Haskell2010 \ No newline at end of file