diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-17 15:08:58 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-17 15:08:58 -0400 |
commit | 88ece0f7a670c0e90c9bb2e0259a9ab37b5c5327 (patch) | |
tree | dca0a08844bd5a798ab9ed57ebb82effed5fdd38 /Graphviz.hs | |
parent | e40f11ded2e560af33962dd0b7a6f6e3d6069e30 (diff) | |
download | debug-me-88ece0f7a670c0e90c9bb2e0259a9ab37b5c5327.tar.gz |
improve display
Diffstat (limited to 'Graphviz.hs')
-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) |