Typos.

diagrams · Feb 28, 2015 · 5087488 · 5087488
1 parent a42f925
commit 5087488
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/src/Diagrams/LinearMap.hs b/src/Diagrams/LinearMap.hs
@@ -9,7 +9,7 @@
 {-# LANGUAGE UndecidableInstances  #-}
 -----------------------------------------------------------------------------
 -- |
--- Module      :  Diagrams.ThreeD.Projection
+-- Module      :  Diagrams.LinearMap
 -- Copyright   :  (c) 2014 diagrams team (see LICENSE)
 -- License     :  BSD-style (see LICENSE)
 -- Maintainer  :  [email protected]
@@ -120,7 +120,6 @@ mkAffineMap f = AffineMap (LinearMap f)
 
 toAffineMap :: (HasBasis v, Num n)
             => Transformation v n -> AffineMap v v n
--- toAffineMap t = AffineMap (toLinearMap t id) (transl t)
 toAffineMap t = AffineMap (toLinearMap t) (transl t)
 
 class (LinearMappable a b, N a ~ N b) => AffineMappable a b where

diff --git a/src/Diagrams/ThreeD/Projection.hs b/src/Diagrams/ThreeD/Projection.hs
@@ -163,5 +163,3 @@ m44Deformation :: Fractional n => M44 n -> Deformation V3 V2 n
 m44Deformation m =
   Deformation (P . view _xy . normalizePoint . (m !*) . point . view _Point)
 
-
-
Original file line number	Diff line number	Diff line change
Expand Up		@@ -163,5 +163,3 @@ m44Deformation :: Fractional n => M44 n -> Deformation V3 V2 n
		m44Deformation m =
		Deformation (P . view _xy . normalizePoint . (m !*) . point . view _Point)