{-# LANGUAGE DeriveGeneric #-}
module Instana.SDK.Internal.Command
( Command(..)
) where
import Instana.SDK.Span.EntrySpan (EntrySpan)
import Instana.SDK.Span.ExitSpan (ExitSpan)
data Command =
CompleteEntry EntrySpan
| CompleteExit ExitSpan
deriving (Int -> Command -> ShowS
[Command] -> ShowS
Command -> String
(Int -> Command -> ShowS)
-> (Command -> String) -> ([Command] -> ShowS) -> Show Command
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Command] -> ShowS
$cshowList :: [Command] -> ShowS
show :: Command -> String
$cshow :: Command -> String
showsPrec :: Int -> Command -> ShowS
$cshowsPrec :: Int -> Command -> ShowS
Show)