From 88ece0f7a670c0e90c9bb2e0259a9ab37b5c5327 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 17 Apr 2017 15:08:58 -0400 Subject: improve display --- Graphviz.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Graphviz.hs') 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) -- cgit v1.2.3