diff --git a/Shakefile.hs b/Shakefile.hs
--- a/Shakefile.hs
+++ b/Shakefile.hs
@@ -39,7 +39,7 @@
   --
   fake "." pats "sanity" $ const $ do
     need [ "build-error" ]
-    need [ "lint", "weed" ]
+    need [ "docs", "lint", "weed" ]
 
   -- | Default things to run.
   --
diff --git a/src/Network/AWS/Wolf/Ctx.hs b/src/Network/AWS/Wolf/Ctx.hs
--- a/src/Network/AWS/Wolf/Ctx.hs
+++ b/src/Network/AWS/Wolf/Ctx.hs
@@ -131,6 +131,6 @@
 --
 runAmazonDecisionCtx :: MonadConf c m => Plan -> [HistoryEvent] -> TransT AmazonDecisionCtx m a -> m a
 runAmazonDecisionCtx p hes action = do
-  let preamble = [ "name" .= (p ^. pStart ^. tName) ]
+  let preamble = [ "name" .= (p ^. pStart . tName) ]
   c <- view confCtx <&> cPreamble <>~ preamble
   runTrans (AmazonDecisionCtx c p hes) action
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
@@ -52,7 +52,7 @@
     atcea <- he ^. heActivityTaskCompletedEventAttributes
     he'   <- flip find hes $ (== atcea ^. atceaScheduledEventId) . view heEventId
     atsea <- he' ^. heActivityTaskScheduledEventAttributes
-    pure (atcea ^. atceaResult, atsea ^. atseaTaskPriority, atsea ^. atseaActivityType ^. atName)
+    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
@@ -90,7 +90,7 @@
 decide :: MonadConf c m => Plan -> m ()
 decide p =
   preConfCtx [ "label" .= LabelDecide ] $ do
-    let queue = p ^. pStart ^. tQueue
+    let queue = p ^. pStart . tQueue
     runAmazonWorkCtx queue $ do
       traceInfo "poll" mempty
       t0 <- liftIO getCurrentTime
diff --git a/wolf.cabal b/wolf.cabal
--- a/wolf.cabal
+++ b/wolf.cabal
@@ -1,5 +1,5 @@
 name:                  wolf
-version:               0.3.41
+version:               0.3.42
 synopsis:              Amazon Simple Workflow Service Wrapper.
 description:           Wolf is a wrapper around Amazon Simple Workflow Service.
 homepage:              https://github.com/swift-nav/wolf