[fix] move Tracing to HydraAuctionUtils

mlabs-haskell · Apr 3, 2023 · 88d01f5 · 88d01f5
1 parent 84ebead
commit 88d01f5
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 7 deletions.
diff --git a/delegate-app/HydraAuction/Delegate/Server.hs b/delegate-app/HydraAuction/Delegate/Server.hs
@@ -27,8 +27,8 @@ import Hydra.Network (IP, PortNumber)
 
 -- Hydra auction imports
 import HydraAuction.Delegate.Interface (DelegateResponse, FrontendRequest)
-import HydraAuction.Delegate.Tracing (TracerT)
 import HydraAuction.Types (AuctionTerms)
+import HydraAuctionUtils.Tracing (TracerT)
 
 -- | The config for the delegate server
 data DelegateServerConfig = DelegateServerConfig

diff --git a/delegate-app/Main.hs b/delegate-app/Main.hs
@@ -74,10 +74,10 @@ import HydraAuction.Delegate.Server (
   ServerAppT,
   ThreadSort (DelegateRunnerThread, QueueAuctionStageThread, WebsocketThread),
  )
-import HydraAuction.Delegate.Tracing (MonadTracer (trace), askTracer, runWithTracer')
 import HydraAuction.OnChain.Common (secondsLeftInInterval, stageToInterval)
 import HydraAuction.Tx.Common (currentAuctionStage, currentTimeMilliseconds)
 import HydraAuction.Types (AuctionTerms)
+import HydraAuctionUtils.Tracing (MonadTracer (trace), askTracer, runWithTracer')
 
 {- | per websocket, a thread gets spawned which then
    subscribes to the broadcast channel and sends to

diff --git a/hydra-auction.cabal b/hydra-auction.cabal
@@ -178,10 +178,7 @@ executable hydra-auction
 executable hydra-auction-delegate
   import:         common-lang
   main-is:        Main.hs
-  other-modules:
-    HydraAuction.Delegate.Server
-    HydraAuction.Delegate.Tracing
-
+  other-modules:  HydraAuction.Delegate.Server
   hs-source-dirs: delegate-app
   ghc-options:    -threaded -rtsopts
   build-depends:
@@ -243,6 +240,7 @@ library hydra-auction-utils
     HydraAuctionUtils.Extras.PlutusOrphans
     HydraAuctionUtils.Fixture
     HydraAuctionUtils.Monads
+    HydraAuctionUtils.Tracing
     Paths_hydra_auction
 
   build-depends:

diff --git a/...gate-app/HydraAuction/Delegate/Tracing.hs → src-utils/HydraAuctionUtils/Tracing.hs b/...gate-app/HydraAuction/Delegate/Tracing.hs → src-utils/HydraAuctionUtils/Tracing.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE RankNTypes #-}
 
-module HydraAuction.Delegate.Tracing (
+module HydraAuctionUtils.Tracing (
   -- * tracing types
 
   -- ** tracing transformer