antiope-swf (empty) → 7.2.1
raw patch · 7 files changed
+153/−0 lines, 7 filesdep +amazonka-swfdep +basedep +hedgehogsetup-changed
Dependencies added: amazonka-swf, base, hedgehog, hspec, hw-hspec-hedgehog, lens, text
Files
- ChangeLog.md +3/−0
- LICENSE +21/−0
- README.md +1/−0
- Setup.hs +2/−0
- antiope-swf.cabal +49/−0
- src/Antiope/SWF/HistoryEvent.hs +76/−0
- test/Spec.hs +1/−0
+ ChangeLog.md view
@@ -0,0 +1,3 @@+# Changelog for antiope-swf++## Unreleased changes
+ LICENSE view
@@ -0,0 +1,21 @@+The MIT License (MIT)++Copyright (c) 2018-2019 Arbor Networks++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.
+ README.md view
@@ -0,0 +1,1 @@+# antiope-swf
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ antiope-swf.cabal view
@@ -0,0 +1,49 @@+cabal-version: 2.2++name: antiope-swf+version: 7.2.1+synopsis: Please see the README on Github at <https://github.com/arbor/antiope#readme>+description: Please see the README on Github at <https://github.com/arbor/antiope#readme>.+category: Services+homepage: https://github.com/arbor/antiope#readme+bug-reports: https://github.com/arbor/antiope/issues+author: Arbor Networks+maintainer: mayhem@arbor.net+copyright: Arbor Networks+license: MIT+license-file: LICENSE+build-type: Simple+extra-source-files:+ README.md+ ChangeLog.md++source-repository head+ type: git+ location: https://github.com/arbor/antiope++common config+ ghc-options: -Wall -Wcompat -Wincomplete-record-updates -Wincomplete-uni-patterns -Wredundant-constraints+ default-language: Haskell2010++library+ import: config+ exposed-modules: Antiope.SWF.HistoryEvent+ hs-source-dirs: src+ build-depends:+ base >= 4.7 && < 5+ , amazonka-swf >= 1.6+ , lens+ , text+++test-suite antiope-swf-test+ import: config+ type: exitcode-stdio-1.0+ main-is: Spec.hs+ hs-source-dirs: test+ ghc-options: -threaded -rtsopts -with-rtsopts=-N+ build-depends:+ base >= 4.7 && < 5+ , hedgehog >= 0.5 && < 0.7+ , hspec >= 2.4 && < 2.7+ , hw-hspec-hedgehog >= 0.1 && < 0.3
+ src/Antiope/SWF/HistoryEvent.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}++module Antiope.SWF.HistoryEvent+ ( historyEventToText+ ) where++import Control.Applicative+import Control.Lens+import Data.Monoid ((<>))+import Data.Text (Text)++import qualified Data.Text as T+import qualified Network.AWS.SWF.Types as SWF++historyEventToText :: SWF.HistoryEvent -> Text+historyEventToText e = "HistoryEvent"+ <> " { " <> maybe "" id eaText+ <> " heEventTimestamp = " <> T.pack (show (e ^. SWF.heEventTimestamp ))+ <> " , heEventType = " <> T.pack (show (e ^. SWF.heEventType ))+ <> " , heEventId = " <> T.pack (show (e ^. SWF.heEventId ))+ <> " }"+ where eaText = Nothing+ <|> fmap (("heWorkflowExecutionCancelRequestedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionCancelRequestedEventAttributes)+ <|> fmap (("heRecordMarkerFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heRecordMarkerFailedEventAttributes)+ <|> fmap (("heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes)+ <|> fmap (("heLambdaFunctionStartedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heLambdaFunctionStartedEventAttributes)+ <|> fmap (("heDecisionTaskScheduledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heDecisionTaskScheduledEventAttributes)+ <|> fmap (("heWorkflowExecutionCompletedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionCompletedEventAttributes)+ <|> fmap (("heStartTimerFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heStartTimerFailedEventAttributes)+ <|> fmap (("heActivityTaskScheduledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskScheduledEventAttributes)+ <|> fmap (("heScheduleActivityTaskFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heScheduleActivityTaskFailedEventAttributes)+ <|> fmap (("heChildWorkflowExecutionCompletedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heChildWorkflowExecutionCompletedEventAttributes)+ <|> fmap (("heMarkerRecordedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heMarkerRecordedEventAttributes)+ <|> fmap (("heScheduleLambdaFunctionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heScheduleLambdaFunctionFailedEventAttributes)+ <|> fmap (("heCompleteWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heCompleteWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heLambdaFunctionCompletedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heLambdaFunctionCompletedEventAttributes)+ <|> fmap (("heRequestCancelExternalWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heRequestCancelExternalWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heTimerCanceledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heTimerCanceledEventAttributes)+ <|> fmap (("heWorkflowExecutionStartedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionStartedEventAttributes)+ <|> fmap (("heActivityTaskCompletedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskCompletedEventAttributes)+ <|> fmap (("heDecisionTaskTimedOutEventAttributes = " <>) . T.pack . show) (e ^. SWF.heDecisionTaskTimedOutEventAttributes)+ <|> fmap (("heCancelTimerFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heCancelTimerFailedEventAttributes)+ <|> fmap (("heChildWorkflowExecutionStartedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heChildWorkflowExecutionStartedEventAttributes)+ <|> fmap (("heActivityTaskCanceledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskCanceledEventAttributes)+ <|> fmap (("heActivityTaskTimedOutEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskTimedOutEventAttributes)+ <|> fmap (("heDecisionTaskStartedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heDecisionTaskStartedEventAttributes)+ <|> fmap (("heWorkflowExecutionTerminatedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionTerminatedEventAttributes)+ <|> fmap (("heChildWorkflowExecutionCanceledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heChildWorkflowExecutionCanceledEventAttributes)+ <|> fmap (("heRequestCancelActivityTaskFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heRequestCancelActivityTaskFailedEventAttributes)+ <|> fmap (("heLambdaFunctionScheduledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heLambdaFunctionScheduledEventAttributes)+ <|> fmap (("heChildWorkflowExecutionTimedOutEventAttributes = " <>) . T.pack . show) (e ^. SWF.heChildWorkflowExecutionTimedOutEventAttributes)+ <|> fmap (("heCancelWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heCancelWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heStartChildWorkflowExecutionInitiatedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heStartChildWorkflowExecutionInitiatedEventAttributes)+ <|> fmap (("heSignalExternalWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heSignalExternalWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heActivityTaskStartedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskStartedEventAttributes)+ <|> fmap (("heStartLambdaFunctionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heStartLambdaFunctionFailedEventAttributes)+ <|> fmap (("heChildWorkflowExecutionTerminatedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heChildWorkflowExecutionTerminatedEventAttributes)+ <|> fmap (("heLambdaFunctionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heLambdaFunctionFailedEventAttributes)+ <|> fmap (("heWorkflowExecutionCanceledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionCanceledEventAttributes)+ <|> fmap (("heTimerStartedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heTimerStartedEventAttributes)+ <|> fmap (("heActivityTaskCancelRequestedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskCancelRequestedEventAttributes)+ <|> fmap (("heWorkflowExecutionTimedOutEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionTimedOutEventAttributes)+ <|> fmap (("heWorkflowExecutionSignaledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionSignaledEventAttributes)+ <|> fmap (("heTimerFiredEventAttributes = " <>) . T.pack . show) (e ^. SWF.heTimerFiredEventAttributes)+ <|> fmap (("heActivityTaskFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heActivityTaskFailedEventAttributes)+ <|> fmap (("heExternalWorkflowExecutionSignaledEventAttributes = " <>) . T.pack . show) (e ^. SWF.heExternalWorkflowExecutionSignaledEventAttributes)+ <|> fmap (("heDecisionTaskCompletedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heDecisionTaskCompletedEventAttributes)+ <|> fmap (("heStartChildWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heStartChildWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heChildWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heChildWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heFailWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heFailWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heContinueAsNewWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heContinueAsNewWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heSignalExternalWorkflowExecutionInitiatedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heSignalExternalWorkflowExecutionInitiatedEventAttributes)+ <|> fmap (("heLambdaFunctionTimedOutEventAttributes = " <>) . T.pack . show) (e ^. SWF.heLambdaFunctionTimedOutEventAttributes)+ <|> fmap (("heWorkflowExecutionFailedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionFailedEventAttributes)+ <|> fmap (("heWorkflowExecutionContinuedAsNewEventAttributes = " <>) . T.pack . show) (e ^. SWF.heWorkflowExecutionContinuedAsNewEventAttributes)+ <|> fmap (("heExternalWorkflowExecutionCancelRequestedEventAttributes = " <>) . T.pack . show) (e ^. SWF.heExternalWorkflowExecutionCancelRequestedEventAttributes)
+ test/Spec.hs view
@@ -0,0 +1,1 @@+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}