Merge VectorTypes.hs into Vector.hs

Algebra/Vector.hs

@@ -2,7 +2,6 @@
 
 module Algebra.Vector where
 
-import Algebra.VectorTypes
 import Control.Applicative
 import Data.List (sortBy)
 import Diagrams.TwoD.Types
@@ -11,6 +10,19 @@ import GHC.Float
 import MyPrelude
 
 
+type Vec     = R2
+type PT      = P2
+type Coord   = (Double, Double)
+type Segment = (PT, PT)
+type Square  = (Coord, Coord)
+
+
+data Alignment = CW
+               | CCW
+               | CL
+  deriving (Eq)
+
+
 -- |Checks whether the Point is in a given dimension.
 inRange :: Square -- ^ the square: ((xmin, xmax), (ymin, ymax))
         -> PT     -- ^ Coordinate

Algebra/VectorTypes.hs

@@ -1,18 +0,0 @@
-{-# OPTIONS_HADDOCK ignore-exports #-}
-
-module Algebra.VectorTypes where
-
-import Diagrams.TwoD.Types
-
-
-type Vec     = R2
-type PT      = P2
-type Coord   = (Double, Double)
-type Segment = (PT, PT)
-type Square  = (Coord, Coord)
-
-
-data Alignment = CW
-               | CCW
-               | CL
-  deriving (Eq)