From ccff5362665865dd23383b8c181650dc5caeeea8 Mon Sep 17 00:00:00 2001
From: Andrzej Rybczak <andrzej@rybczak.net>
Date: Thu, 11 Apr 2024 15:41:16 +0200
Subject: [PATCH] Rename

---
 .../src/Effectful/{Tracing.hs => Trace.hs}         | 14 +++++++-------
 tracing-effectful/tracing-effectful.cabal          |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)
 rename tracing-effectful/src/Effectful/{Tracing.hs => Trace.hs} (93%)

diff --git a/tracing-effectful/src/Effectful/Tracing.hs b/tracing-effectful/src/Effectful/Trace.hs
similarity index 93%
rename from tracing-effectful/src/Effectful/Tracing.hs
rename to tracing-effectful/src/Effectful/Trace.hs
index dc43cfa..aae5044 100644
--- a/tracing-effectful/src/Effectful/Tracing.hs
+++ b/tracing-effectful/src/Effectful/Trace.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE UndecidableInstances #-}
 {-# OPTIONS_GHC -Wno-orphans #-}
-module Effectful.Tracing
+module Effectful.Trace
     (
         -- * Effect
         Trace
@@ -10,19 +10,19 @@ module Effectful.Tracing
     ,   runNoTrace
 
         -- * Zipkin utilities
-    ,   runZipkinTracing
+    ,   runZipkinTrace
     ,   withZipkin
 
         -- * Reexport
     ,  module Monitor.Tracing
     ) where
 
+import Control.Monad.Catch (finally)
+import Control.Monad.Trace
+import Control.Monad.Trace.Class
 import Effectful
 import Effectful.Dispatch.Dynamic
 import Effectful.Reader.Static
-import Control.Monad.Trace
-import Control.Monad.Trace.Class
-import Control.Monad.Catch (finally)
 import Monitor.Tracing
 import Monitor.Tracing.Zipkin (Zipkin(zipkinTracer), Settings, new, publish)
 
@@ -72,8 +72,8 @@ withZipkin settings f = do
 -- | Runs a 'TraceT' action, sampling spans appropriately. Note that this method does not publish
 -- spans on its own; to do so, either call 'publish' manually or specify a positive
 -- 'settingsPublishPeriod' to publish in the background.
-runZipkinTracing :: (IOE :> es) => Zipkin -> Eff (Trace : es) a -> Eff es a
-runZipkinTracing zipkin = runTrace (zipkinTracer zipkin)
+runZipkinTrace :: (IOE :> es) => Zipkin -> Eff (Trace : es) a -> Eff es a
+runZipkinTrace zipkin = runTrace (zipkinTracer zipkin)
 
 -- | Orphan, canonical instance.
 instance Trace :> es => MonadTrace (Eff es) where
diff --git a/tracing-effectful/tracing-effectful.cabal b/tracing-effectful/tracing-effectful.cabal
index b151757..525486f 100644
--- a/tracing-effectful/tracing-effectful.cabal
+++ b/tracing-effectful/tracing-effectful.cabal
@@ -28,7 +28,7 @@ common language
 
 library
   import:          language
-  exposed-modules: Effectful.Tracing
+  exposed-modules: Effectful.Trace
   build-depends:
     , base            <5
     , effectful-core  >=1.0.0.0 && <3.0.0.0