Merge pull request #1 from tonyday567/sparks

numhask-0.10 perf-0.10

Author: tonyday567

.gitignore

@@ -7,3 +7,4 @@ TAGS
 /.ghc.environment.x86_64-darwin-8.10.4
 /.hie/
 /cabal.project.local*
+/.ghc.environment.x86_64-darwin-8.10.7

numhask-hmatrix.cabal

@@ -30,8 +30,8 @@ library
   build-depends:
     , base           >=4.11  && <5
     , hmatrix        ^>=0.20
-    , numhask        ^>=0.8.1
-    , numhask-array  ^>=0.9
+    , numhask        >=0.8.1 && <0.11
+    , numhask-array  >=0.9 && <0.11
     , vector         >=0.10  && <0.13
 
   exposed-modules:    NumHask.Array.HMatrix

src/NumHask/Array/HMatrix.hs

@@ -163,39 +163,27 @@ instance
   (.*) s (Array r) = Array $ H.cmap (s *) r
   {-# INLINE (.*) #-}
 
-  (*.) (Array r) s = Array $ H.cmap (*s) r
-  {-# INLINE (*.) #-}
-
 instance
   (HasShape s, Additive a, H.Container H.Vector a, Num a) =>
   AdditiveAction (Array s a) a
   where
   (.+) s (Array r) = Array $ H.cmap (s +) r
   {-# INLINE (.+) #-}
 
-  (+.) (Array r) s = Array $ H.cmap (+s) r
-  {-# INLINE (+.) #-}
-
 instance
   (HasShape s, Subtractive a, H.Container H.Vector a, Num a) =>
   SubtractiveAction (Array s a) a
   where
   (.-) s (Array r) = Array $ H.cmap (s -) r
   {-# INLINE (.-) #-}
 
-  (-.) (Array r) s = Array $ H.cmap (\x -> x - s) r
-  {-# INLINE (-.) #-}
-
 instance
   (HasShape s, Divisive a, H.Container H.Vector a, Num a) =>
   DivisiveAction (Array s a) a
   where
   (./) s (Array r) = Array $ H.cmap (s /) r
   {-# INLINE (./) #-}
 
-  (/.) (Array r) s = Array $ H.cmap (/ s) r
-  {-# INLINE (/.) #-}
-
 -- | from flat list
 instance
   ( HasShape s,