VEC: move scalarMul from Test/Vector.hs to Algebra/Vector.hs

2014-12-17 19:41:15 +01:00
parent 35e1366034
commit 38329a806b
2 changed files with 5 additions and 2 deletions
--- a/Test/Vector.hs
+++ b/Test/Vector.hs
@@ -107,8 +107,6 @@ scalarProdProp3 r v1 v2 v3 =
  ==
  r' * (v1' `scalarProd` v2') + (v1' `scalarProd` v3')
  where
-    scalarMul :: Double -> Vec -> Vec
-    scalarMul d (R2 a b) = R2 (a * d) (b * d)
    v1' = r2 . (fromIntegral *** fromIntegral) $ v1
    v2' = r2 . (fromIntegral *** fromIntegral) $ v2
    v3' = r2 . (fromIntegral *** fromIntegral) $ v3