diff --git a/Graphics/Diagram/Plotter.hs b/Graphics/Diagram/Plotter.hs
index 2c8f9e2..684ec75 100644
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@@ -16,8 +16,6 @@ import Diagrams.TwoD.Layout.Tree
 import Graphics.Diagram.Types
 import Parser.PathParser
 
-import qualified Debug.Trace as D
-
 
 -- |Draw a list of points.
 drawP :: [PT]              -- ^ the points to draw