Further strictifying

src/Geometry.hs

@@ -10,7 +10,7 @@ Line refers to a line defined by two points, and extends beyond the two points.
 -}
 module Geometry
     ( module Geometry
---    , module Geometry.Data
+    , module Geometry.Data
     , module Geometry.Intersect
     , module Geometry.Bezier
     , module Geometry.Vector
@@ -228,6 +228,10 @@ angleBetween v1 v2 = argV v1 - argV v2
 -- | Return a list containing two copies of a pair.
 doublePair :: (a,a) -> [(a,a)]
 doublePair (x,y) = [(x,y),(y,x)]
+
+doubleV2 :: V2 a -> [V2 a]
+doubleV2 (V2 x y) = [V2 x y,V2 y x]
+
 -- | Test whether two polygons intersect by testing the intersection of each
 -- consecutive pair of points.
 polysIntersect :: [Point2] -> [Point2] -> Bool