Write an extra convenience operator for adding attributes, and export all the convenience operators.

1 files changed, 6 insertions, 1 deletions

diff --git a/tools/resolver-visualize/Dot.hs b/tools/resolver-visualize/Dot.hs
index d65110d6..45684b72 100644
--- a/tools/resolver-visualize/Dot.hs
+++ b/tools/resolver-visualize/Dot.hs
@@ -9,7 +9,8 @@ module Dot(
            Name(), AttrValue(),
            name, attrValue,
            node, edge, digraph,
-           genNodes
+           genNodes,
+           (.=), (..=), (.!)
           )
            where
 
@@ -61,6 +62,10 @@ class Attributed a where
 (.=) :: (Attributed a, AttributeValue v) => a -> (String, v) -> a
 a .= (nameString, v) = addAttribute a (name nameString) (Just $ valueString v)
 
+-- EW: hack to pretend-overload .= on strings.
+(..=) :: (Attributed a) => a -> (String, String) -> a
+a ..= (nameString, valString) = addAttribute a (name nameString) (Just $ attrValue valString)
+
 (.!) :: Attributed a => a -> Name -> a
 a .! name = addAttribute a name Nothing