diff --git a/ChangeLog.md b/ChangeLog.md new file mode 100644 --- /dev/null +++ b/ChangeLog.md @@ -0,0 +1,3 @@ +# Changelog for antiope-swf + +## Unreleased changes diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -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. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,1 @@ +# antiope-swf diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/antiope-swf.cabal b/antiope-swf.cabal new file mode 100644 --- /dev/null +++ b/antiope-swf.cabal @@ -0,0 +1,49 @@ +cabal-version: 2.2 + +name: antiope-swf +version: 7.2.1 +synopsis: Please see the README on Github at +description: Please see the README on Github at . +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 diff --git a/src/Antiope/SWF/HistoryEvent.hs b/src/Antiope/SWF/HistoryEvent.hs new file mode 100644 --- /dev/null +++ b/src/Antiope/SWF/HistoryEvent.hs @@ -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) diff --git a/test/Spec.hs b/test/Spec.hs new file mode 100644 --- /dev/null +++ b/test/Spec.hs @@ -0,0 +1,1 @@ +{-# OPTIONS_GHC -F -pgmF hspec-discover #-}