From 2efe3257ec4229886c809d00136acba5f0eb7287 Mon Sep 17 00:00:00 2001 From: Daniel Burrows Date: Fri, 3 Apr 2009 08:56:23 -0700 Subject: Don't doubly quote byte-strings that are attribute values. --- tools/resolver-visualize/Dot.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tools') diff --git a/tools/resolver-visualize/Dot.hs b/tools/resolver-visualize/Dot.hs index b0b056d1..4e6fbb66 100644 --- a/tools/resolver-visualize/Dot.hs +++ b/tools/resolver-visualize/Dot.hs @@ -15,7 +15,7 @@ module Dot( import qualified Data.List as List import qualified Data.Map as Map -import qualified Data.ByteString as BS +import qualified Data.ByteString.Char8 as BS newtype Name = Name String deriving(Eq, Ord) newtype AttrValue = AttrValue String deriving(Eq, Ord) @@ -48,7 +48,7 @@ instance AttributeValue AttrValue where valueString = id instance AttributeValue BS.ByteString where - valueString = attrValue . show + valueString = attrValue . BS.unpack -- cgit v1.2.3