hunk ./src/Data/VectorSpace.hs 87 -project :: (InnerSpace v, s ~ Scalar v, Floating s) => v -> v -> v -project u v = (v <.> u') *^ u' - where u' = normalized u +project :: (InnerSpace v, s ~ Scalar v, Fractional s) => v -> v -> v +project u v = ((v <.> u) *^ u) ^/ magnitudeSq u hunk ./vector-space.cabal 2 -Version: 0.8.1 +Version: 0.8.2