diff options
Diffstat (limited to 'packages/base/src/Numeric/Vector.hs')
-rw-r--r-- | packages/base/src/Numeric/Vector.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/Vector.hs b/packages/base/src/Numeric/Vector.hs index 6cac5dc..6245cf7 100644 --- a/packages/base/src/Numeric/Vector.hs +++ b/packages/base/src/Numeric/Vector.hs | |||
@@ -32,7 +32,7 @@ adaptScalar f1 f2 f3 x y | |||
32 | 32 | ||
33 | ------------------------------------------------------------------ | 33 | ------------------------------------------------------------------ |
34 | 34 | ||
35 | instance Num (Vector CInt) where | 35 | instance Num (Vector I) where |
36 | (+) = adaptScalar addConstant add (flip addConstant) | 36 | (+) = adaptScalar addConstant add (flip addConstant) |
37 | negate = scale (-1) | 37 | negate = scale (-1) |
38 | (*) = adaptScalar scale mul (flip scale) | 38 | (*) = adaptScalar scale mul (flip scale) |