summaryrefslogtreecommitdiff
path: root/src/Network/AWS/Wolf/Count.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/AWS/Wolf/Count.hs')
-rw-r--r--src/Network/AWS/Wolf/Count.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Network/AWS/Wolf/Count.hs b/src/Network/AWS/Wolf/Count.hs
index ba38074..9fb401b 100644
--- a/src/Network/AWS/Wolf/Count.hs
+++ b/src/Network/AWS/Wolf/Count.hs
@@ -41,10 +41,9 @@ countDecision t = do
--
count :: MonadConf c m => Plan -> m ()
count p =
- preConfCtx [ "label" .= LabelCount ] $
- runAmazonCtx $ do
- countDecision (p ^. pStart)
- mapM_ countActivity (p ^. pTasks)
+ preConfCtx [ "label" .= LabelCount ] $ do
+ countDecision (p ^. pStart)
+ mapM_ countActivity (p ^. pTasks)
-- | Run counter from main with config file.
--