diff options
| author | Daniel Burrows <dburrows@debian.org> | 2009-04-03 08:56:23 -0700 |
|---|---|---|
| committer | Daniel Burrows <dburrows@debian.org> | 2009-04-03 08:56:23 -0700 |
| commit | 2efe3257ec4229886c809d00136acba5f0eb7287 (patch) | |
| tree | 30c5c1b52e491d9255142be4fa34f51967ec5b6c /tools | |
| parent | 0115114455dec3c50e7d9221f42ddf56ad6450c9 (diff) | |
| download | aptitude-2efe3257ec4229886c809d00136acba5f0eb7287.tar.gz | |
Don't doubly quote byte-strings that are attribute values.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/resolver-visualize/Dot.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |