Cleanup, haddocks

src/Geometry.hs

@@ -90,13 +90,13 @@ errorPointInPolygon !i !p xs
 
 -- | Debug version of 'normalizeV'.
 errorNormalizeV :: Int -> Point2 -> Point2
-errorNormalizeV !i !(0,0) = error $ "problem with function: errorNormalizeV "++show i
+errorNormalizeV !i (0,0) = error $ "problem with function: errorNormalizeV "++show i
 errorNormalizeV !i !p = normalizeV p
 
 -- | Debug version of 'angleVV'.
 errorAngleVV :: Int -> Point2 -> Point2 -> Float
-errorAngleVV !i !(0,0) _ = error $ "problem with function: errorAngleVV "++show i
-errorAngleVV !i _ !(0,0) = error $ "problem with function: errorAngleVV "++show i
+errorAngleVV !i (0,0) _ = error $ "problem with function: errorAngleVV "++show i
+errorAngleVV !i _ (0,0) = error $ "problem with function: errorAngleVV "++show i
 errorAngleVV !i !p !p' = angleVV p p'
 
 -- | Debug version of 'isLHS'.
@@ -126,9 +126,9 @@ isLHS
     -> Bool
 {-# INLINE isLHS #-}
 isLHS 
-    !(x,y)      
-    !(x',y')   
-    !(x'',y'') 
+    (x,y)      
+    (x',y')   
+    (x'',y'') 
     | (x,y) == (x',y')  = False
     | otherwise = a1 * b2 - a2 * b1 > 0
   where 
@@ -146,9 +146,9 @@ isRHS
     -> Bool
 {-# INLINE isRHS #-}
 isRHS 
-    !(x,y)       
-    !(x',y')    
-    !(x'',y'')  
+    (x,y)       
+    (x',y')    
+    (x'',y'')  
     | (x,y) == (x',y')  = False
     | otherwise = a1 * b2 - a2 * b1 < 0
   where