updating eulerhs test file changes

Author: Vijay Gupta

cabal.project

@@ -1,13 +1,11 @@
 cabal-version: 3.0
 name:          euler-hs
 version:       3.3.2.0
-synopsis:      The Flow framework for Euler.
-description:
-homepage:       https://github.com/juspay/euler-hs
-license:
+synopsis:      The Flow framework for web backends
+license:       Apache-2.0
 author:        Juspay Technologies Pvt Ltd
-maintainer:    euler@juspay.in
-copyright:     (C) Juspay Technologies Pvt Ltd 2019-2020
+maintainer:    opensource@juspay.in
+copyright:     (C) Juspay Technologies Pvt Ltd 2019-2022
 category:      Euler
 build-type:    Simple
 tested-with:   GHC ==8.8.4 || ==8.10.7

euler-hs.cabal

@@ -1,3 +1,14 @@
+{- |
+Module      :  EulerHS.ART.DBReplay
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+
+This module contains interpreters and methods for running `Flow` scenarios.
+-}
+
 {-# LANGUAGE DerivingStrategies  #-}
 {-# LANGUAGE RankNTypes          #-}
 {-# LANGUAGE ScopedTypeVariables #-}

src/EulerHS/ART/DBReplay.hs

@@ -1,3 +1,14 @@
+{- |
+Module      :  EulerHS.ART.EnvVars
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+
+This module contains interpreters and methods for running `Flow` scenarios.
+-}
+
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module EulerHS.ART.EnvVars where

src/EulerHS/ART/EnvVars.hs

@@ -1,3 +1,12 @@
+{- |
+Module      :  EulerHS.ART.FlowUtils
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+-}
+
 {-# LANGUAGE AllowAmbiguousTypes #-}
 {-# LANGUAGE RankNTypes          #-}
 {-# LANGUAGE ScopedTypeVariables #-}

src/EulerHS/ART/FlowUtils.hs

@@ -1,3 +1,12 @@
+{- |
+Module      :  EulerHS.ART.ReplayFunctions
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+-}
+
 {-# LANGUAGE RankNTypes     #-}
 {-# LANGUAGE DerivingStrategies      #-}
 {-# LANGUAGE ScopedTypeVariables #-}

src/EulerHS/ART/ReplayFunctions.hs

@@ -1,3 +1,15 @@
+{- |
+Module      :  EulerHS.ART.Types
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+
+This module contains types for ART recording.
+Import this module qualified as import EulerHS.ART.Types as ART
+-}
+
 {-# LANGUAGE DerivingStrategies  #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 

src/EulerHS/ART/Types.hs

@@ -1,3 +1,12 @@
+{- |
+Module      :  EulerHS.ART.Utils
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+-}
+
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module EulerHS.ART.Utils where

src/EulerHS/ART/Utils.hs

@@ -1,3 +1,15 @@
+{- |
+Module      :  EulerHS.Api
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+
+This module contains the definition of the `EulerClient` type, which is a wrapper around `Servant.Client.Client` type.
+It also contains the definition of the `ApiTag` type, which is used to tag API calls in the logs.
+-}
+
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE  RankNTypes #-}
@@ -14,11 +26,16 @@ import           Servant.Client.Core.RunClient (RunClient)
 import qualified Servant.Client.Free as SCF
 import qualified EulerHS.Options as T
 import qualified EulerHS.Logger.Types as Log
+import qualified Servant.Client as SC
+import qualified Servant.Client.Core as SCC
 
 newtype EulerClient a = EulerClient (Free SCF.ClientF a)
     deriving newtype (Functor, Applicative, Monad, RunClient)
     -- deriving stock (Show,Generic)
 
+client :: SC.HasClient EulerClient api => Proxy api -> SC.Client EulerClient api
+client api = SCC.clientIn api $ Proxy @EulerClient
+
 data LogServantRequest
   = LogServantRequest
     { url         :: String

src/EulerHS/Api.hs

@@ -1,3 +1,12 @@
+{- |
+Module      :  EulerHS.ApiHelpers
+Copyright   :  (C) Juspay Technologies Pvt Ltd 2019-2022
+License     :  Apache 2.0 (see the file LICENSE)
+Maintainer  :  opensource@juspay.in
+Stability   :  experimental
+Portability :  non-portable
+-}
+
 {-# LANGUAGE RankNTypes     #-}
 {-# LANGUAGE RecordWildCards     #-}
 module EulerHS.ApiHelpers where