cardano-tracer: showT change

- Temporary disable windows tests

Author: jutaro

cardano-tracer/cardano-tracer.cabal

@@ -280,6 +280,9 @@ test-suite cardano-tracer-test
   type:                 exitcode-stdio-1.0
   default-extensions:   OverloadedStrings
 
+  if os(windows)
+    buildable:          False
+
   hs-source-dirs:       test
 
   main-is:              cardano-tracer-test.hs

cardano-tracer/src/Cardano/Tracer/Handlers/RTView/Notifications/Send.hs

@@ -16,6 +16,8 @@ import qualified Data.Text as T
 import           Data.Time.Clock (UTCTime)
 import           Data.Time.Format (defaultTimeLocale, formatTime)
 
+import           Cardano.Logging (showT)
+
 import           Cardano.Tracer.Handlers.RTView.Notifications.Email
 import           Cardano.Tracer.Handlers.RTView.Notifications.Types
 import           Cardano.Tracer.Types

cardano-tracer/src/Cardano/Tracer/Handlers/RTView/Update/EKG.hs

@@ -12,11 +12,12 @@ import qualified Data.Map.Strict as M
 import           Data.Text (intercalate, isPrefixOf)
 import           Graphics.UI.Threepenny.Core (UI, liftIO)
 
+import           Cardano.Logging (showT)
+
 import           Cardano.Tracer.Environment
 import           Cardano.Tracer.Handlers.Metrics.Utils
 import           Cardano.Tracer.Handlers.RTView.UI.Utils
 import           Cardano.Tracer.Types
-import           Cardano.Tracer.Utils
 
 updateEKGMetrics :: TracerEnv -> UI ()
 updateEKGMetrics TracerEnv{teAcceptedMetrics} = do

cardano-tracer/src/Cardano/Tracer/Handlers/RTView/Update/Logs.hs

@@ -17,7 +17,7 @@ import           Data.Time.Format (defaultTimeLocale, formatTime)
 import qualified Graphics.UI.Threepenny as UI
 import           Graphics.UI.Threepenny.Core
 
-import           Cardano.Logging (SeverityS (..))
+import           Cardano.Logging (SeverityS (..), showT)
 
 import           Cardano.Tracer.Environment
 import           Cardano.Tracer.Handlers.RTView.State.TraceObjects

cardano-tracer/src/Cardano/Tracer/Handlers/RTView/Update/Nodes.hs

@@ -35,6 +35,8 @@ import           Graphics.UI.Threepenny.Core
 import           Text.Printf (printf)
 import           Text.Read (readMaybe)
 
+import           Cardano.Logging (showT)
+
 import           Cardano.Tracer.Configuration
 import           Cardano.Tracer.Environment
 import           Cardano.Tracer.Handlers.Metrics.Utils

cardano-tracer/src/Cardano/Tracer/Handlers/RTView/Update/Peers.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
 module Cardano.Tracer.Handlers.RTView.Update.Peers
@@ -18,6 +18,8 @@ import qualified Data.Text as T
 import qualified Graphics.UI.Threepenny as UI
 import           Graphics.UI.Threepenny.Core
 
+import           Cardano.Logging (showT)
+
 import           Cardano.Node.Tracing.Peers
 
 import           Cardano.Tracer.Environment
@@ -27,7 +29,6 @@ import           Cardano.Tracer.Handlers.RTView.UI.Utils
 import           Cardano.Tracer.Handlers.RTView.Update.Utils
 import           Cardano.Tracer.Handlers.RTView.Utils
 import           Cardano.Tracer.Types
-import           Cardano.Tracer.Utils
 
 updateNodesPeers
   :: TracerEnv

cardano-tracer/src/Cardano/Tracer/Utils.hs

@@ -29,7 +29,6 @@ module Cardano.Tracer.Utils
   , nl
   , runInLoop
   , showProblemIfAny
-  , showT
   ) where
 
 #if MIN_VERSION_base(4,18,0)
@@ -54,6 +53,7 @@ import qualified Data.Map.Strict as M
 import qualified Data.Set as S
 import qualified Data.Text as T
 import           Data.Tuple.Extra (uncurry3)
+
 import           System.IO (hFlush, stdout)
 import           System.Mem.Weak (deRefWeak)
 import qualified System.Signal as S
@@ -208,9 +208,6 @@ nl = "\n"
 nl = "\r\n"
 #endif
 
-showT :: Show a => a -> T.Text
-showT = T.pack . show
-
 -- | If 'cardano-tracer' process is going to die (by receiving some system signal),
 --   we want to do something before it stops.
 beforeProgramStops :: IO () -> IO ()