tracing 0.0.1.0 → 0.0.1.1

raw patch · 2 files changed

+6/−20 lines, 2 files

Files

• app/ZipkinExample.hs +5/−19
• tracing.cabal +1/−1

@@ -1,27 +1,15 @@-{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} --- | A simple tracing example which outputs traces to stdout.------ It also showcases how to trace calls across threads.+{-| A simple tracing example which publishes traces to a local Zipkin server. -} module Main where  import Control.Concurrent (threadDelay) import Control.Monad (void) import Monitor.Tracing import qualified Monitor.Tracing.Zipkin as Zipkin-import qualified Net.IPv4 as IPv4 -example1 :: MonadTrace m => m ()-example1 = Zipkin.rootSpan Zipkin.Deny "example1" $ do-  Zipkin.annotate "TEST_LOG0"-  Zipkin.localSpan "nested1" $ Zipkin.tag "TEST_TAG1" "12"-  Zipkin.localSpan "nested2" $ do-    Zipkin.tag "TEST_TAG2" "a.2"-    Zipkin.localSpan "nestednsted" $ Zipkin.tag "TEST_TAG3" ""--example2 :: (MonadTrace m, MonadUnliftIO m) => m ()-example2 = Zipkin.rootSpan Zipkin.Accept "something" $ do+example :: (MonadTrace m, MonadUnliftIO m) => m ()+example = Zipkin.rootSpan Zipkin.Accept "something" $ do   Zipkin.annotate "log2"   Zipkin.tag "tag2" "def"   liftIO $ threadDelay 100000@@ -37,9 +25,7 @@ main = do   zipkin <- Zipkin.new $ Zipkin.defaultSettings     { Zipkin.settingsEndpoint = Just $ Zipkin.defaultEndpoint-      { Zipkin.endpointService = Just "print-spans"-      , Zipkin.endpointIPv4 = Just IPv4.localhost }+      { Zipkin.endpointService = Just "print-spans" }     , Zipkin.settingsHost = "localhost" }-  Zipkin.run zipkin example1-  Zipkin.run zipkin example2+  Zipkin.run zipkin example   Zipkin.publish zipkin

@@ -1,5 +1,5 @@ name:                tracing-version:             0.0.1.0+version:             0.0.1.1 synopsis:            Distributed tracing description:         https://github.com/mtth/tracing homepage:            https://github.com/mtth/tracing