fix imports, add some parens

diagrams · Jun 4, 2014 · df10acf · df10acf
1 parent 34c1266
commit df10acf
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/src/Diagrams/TwoD/Arrow.hs b/src/Diagrams/TwoD/Arrow.hs
@@ -395,7 +395,7 @@ arrow' opts len = mkQD' (DelayedLeaf delayedArrow)
     -- Build an arrow and set its endpoints to the image under tr of origin and (len,0).
     dArrow sty tr ln gToO nToO = (h' <> t' <> shaft)
                # moveOriginBy (tWidth *^ (unit_X # rotate tAngle))
-               # rotate ((q .-. p)^._theta) ^-^ (dir^._theta)
+               # rotate (((q .-. p)^._theta) ^-^ (dir^._theta))
                # moveTo p
       where
 

diff --git a/src/Diagrams/TwoD/Arrowheads.hs b/src/Diagrams/TwoD/Arrowheads.hs
@@ -64,7 +64,6 @@ import           Diagrams.Angle
 import           Diagrams.Core
 
 import           Diagrams.Coordinates    ((^&))
-import           Diagrams.Direction
 import           Diagrams.Path
 import           Diagrams.Segment
 import           Diagrams.Trail

diff --git a/src/Diagrams/TwoD/Transform/ScaleInv.hs b/src/Diagrams/TwoD/Transform/ScaleInv.hs
@@ -20,7 +20,7 @@ module Diagrams.TwoD.Transform.ScaleInv
     , scaleInv, scaleInvPrim )
     where
 
-import           Control.Lens            (makeLenses, view)
+import           Control.Lens            (makeLenses, view,(^.))
 import           Data.AffineSpace        ((.-.))
 import           Data.Semigroup
 import           Data.Typeable
@@ -84,7 +84,7 @@ instance (V t ~ R2, HasOrigin t) => HasOrigin (ScaleInv t) where
 instance (V t ~ R2, Transformable t) => Transformable (ScaleInv t) where
   transform tr (ScaleInv t v l) = ScaleInv (trans . rot $ t) (rot v) l'
     where
-      angle = (transform tr v ^. _theta) (v^._theta)
+      angle = (transform tr v ^. _theta)
       rot :: (Transformable t, V t ~ R2) => t -> t
       rot = rotateAbout l angle
       l'  = transform tr l