diff --git a/Data/GraphViz/Attributes.hs b/Data/GraphViz/Attributes.hs
--- a/Data/GraphViz/Attributes.hs
+++ b/Data/GraphViz/Attributes.hs
@@ -897,9 +897,9 @@
           go (c:cs') = showColor c ++ ':' : go cs'
 
 showColor :: Color -> String
-showColor (RGB r g b)      = show $ '#' : foldr showWord8Pad "" [r,g,b]
-showColor (RGBA r g b a)   = show $ '#' : foldr showWord8Pad "" [r,g,b,a]
-showColor (HSV h s v)      = show $ show h ++ " " ++ show s ++ " " ++ show v
+showColor (RGB r g b)      = '#' : foldr showWord8Pad "" [r,g,b]
+showColor (RGBA r g b a)   = '#' : foldr showWord8Pad "" [r,g,b,a]
+showColor (HSV h s v)      = show h ++ " " ++ show s ++ " " ++ show v
 showColor (ColorName name) = name
 
 showWord8Pad :: Word8 -> String -> String
diff --git a/graphviz.cabal b/graphviz.cabal
--- a/graphviz.cabal
+++ b/graphviz.cabal
@@ -1,5 +1,5 @@
 Name:               graphviz
-Version:            2999.1.0.1
+Version:            2999.1.0.2
 Stability:          Beta
 Synopsis:           GraphViz bindings for Haskell.
 Description:        Provides convenient functions to convert FGL