diff options
| -rw-r--r-- | Graphviz.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Graphviz.hs b/Graphviz.hs index 0809468..26b7563 100644 --- a/Graphviz.hs +++ b/Graphviz.hs @@ -14,6 +14,7 @@ import Data.GraphViz.Attributes.Complete import Data.GraphViz.Types.Generalised as G import Data.GraphViz.Types.Monadic import Control.Monad +import qualified Data.ByteString as B import qualified Data.ByteString.Lazy as L import qualified Data.Text.Lazy as T import qualified Data.Text.Lazy.Encoding as T @@ -80,8 +81,10 @@ instance Display Seen where display = display . seenData instance Display Entered where - display = display . enteredData + display v + | B.null (val $ echoData v) = display $ enteredData v + | otherwise = "[" <> display (echoData v) <> "] " <> display (enteredData v) instance Display a => Display (Proto a) where display (Proto a) = display a - display (Rejected a) = "Rejected " <> display (activity a) + display (Rejected a) = "Rejected: " <> display (activity a) |