Show instance now prints in one line.

diagrams · Sep 5, 2013 · f434e40 · f434e40
1 parent 86a2688
commit f434e40
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Diagrams/Backend/SVG.hs b/src/Diagrams/Backend/SVG.hs
@@ -97,7 +97,7 @@ import           Data.Monoid.Split            (Split (..))
 import           Text.Blaze.Svg.Renderer.Utf8 (renderSvg)
 import           Text.Blaze.Svg11             ((!))
 import qualified Text.Blaze.Svg11             as S
-import qualified Text.Blaze.Svg.Renderer.Pretty as PrettySvg
+import qualified Text.Blaze.Svg.Renderer.String as StringSvg
 
 -- from this package
 import qualified Graphics.Rendering.SVG       as R
@@ -221,7 +221,7 @@ instance Show (Options SVG R2) where
             , "svgDefinitions = "
             , case svgDefinitions opts of
                 Nothing -> "Nothing"
-                Just svg -> "Just " ++ PrettySvg.renderSvg svg
+                Just svg -> "Just " ++ StringSvg.renderSvg svg
             , " }"
             ]