diff options
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 |