diff --git a/Shakefile.hs b/Shakefile.hs
deleted file mode 100644
--- 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
--- a/src/Network/AWS/Wolf/Decide.hs
+++ b/src/Network/AWS/Wolf/Decide.hs
@@ -55,7 +55,7 @@
     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
--- 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 @@
   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