Fix haddock bugs and bump version to 0.3.2.3

Former-commit-id: a08a7f9ccd6032c76bfecbc5354f376c92fc1db0

reanimate.cabal

@@ -3,7 +3,7 @@ cabal-version:       1.18
 --  see http://haskell.org/cabal/users-guide/
 
 name:                reanimate
-version:             0.3.2.2
+version:             0.3.2.3
 -- synopsis:
 -- description:
 license:             PublicDomain
@@ -38,7 +38,7 @@ Source-Repository head
 
 Flag hmatrix
   Description: Enable hmatrix dependency (requires blas and lapack)
-  Default:     False
+  Default:     True
   Manual:      True
 
 Flag test

src/Reanimate/Math/EarClip.hs

@@ -28,7 +28,6 @@ earClip' p = map (edgesToTriangulation $ ringSize p) $ inits $
     -- worker :: Set.Set Int -> PolyQueue Int -> [(P,P)]
     worker _ears queue | isSimpleQ queue = []
     worker ears queue
-      -- | trace (show (x, Set.member x ears)) False = undefined
       | x `Set.member` ears =
         let dq = dropQ queue
             v0 = prevQ 1 queue

src/Reanimate/Math/Polygon.hs

@@ -506,9 +506,6 @@ pCycle p 0 = p
 pCycle p t = mkPolygon $ worker 0 0
   where
     worker acc i
-      -- | segment + acc == limit =
-      --   V.drop i p <>
-      --   V.take i p
       | segment + acc > limit =
         V.singleton (lerp (realToFrac $ (segment + acc - limit)/segment) x y) <>
         -- V.drop (i+1) (polygonPoints p) <>

src/Reanimate/Math/Visibility.hs

@@ -23,7 +23,6 @@ visibility _        = undefined
 go :: (Ord a, Fractional a) => V2 a -> [V2 a] -> [V2 a] -> [V2 a]
 go _z stack [] = stack
 go z stack@(s:s':_ss) (v:vs)
-  -- | isLeftTurn z s v && isRightTurn s' s v = trace ("FF: " ++ show (z,s,s',v)) $ fastForward z stack s (v:vs)
   | isLeftTurn z s v  = {-trace ("Left: " ++ show (z,s,v)) $ -}go z (v:stack) vs
   | isLeftTurn s' s v = {-trace ("Right: " ++ show (s',s,v,vs)) $ -}rightTurn z stack v vs
   | otherwise         = {-trace ("FF: " ++ show (z,s,s',v)) $ -}fastForward z stack s (v:vs)