diff --git a/Algebra/Polygon.hs b/Algebra/Polygon.hs
index 1943def..e076428 100644
--- a/Algebra/Polygon.hs
+++ b/Algebra/Polygon.hs
@@ -5,7 +5,6 @@ module Algebra.Polygon where
 import Algebra.Vector
 import Data.Maybe
 import MyPrelude
-{- import Diagrams.Coordinates -}
 
 
 splitPoly :: [PT]
diff --git a/Algorithms/PolygonTriangulation.hs b/Algorithms/PolygonTriangulation.hs
index 5c4cfef..a54aae1 100644
--- a/Algorithms/PolygonTriangulation.hs
+++ b/Algorithms/PolygonTriangulation.hs
@@ -1,5 +1,4 @@
 {-# OPTIONS_HADDOCK ignore-exports #-}
-{-# LANGUAGE ViewPatterns #-}
 
 module Algorithms.PolygonTriangulation where
 
@@ -9,8 +8,6 @@ import qualified Control.Arrow as A
 import Data.List
 import Data.Maybe
 import Safe
-import Diagrams.Coordinates
-import MyPrelude
 
 
 data VCategory = VStart