diff options
author | idontgetoutmuch <dominic@steinitz.org> | 2018-04-22 07:06:52 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-04-22 07:06:52 -0700 |
commit | dd96a98207dbafbf81b4a5f02613963cf5bd4b4c (patch) | |
tree | 390a4c4759d8afaa6b5f9cf1762d7753b88e2903 /packages/gsl | |
parent | 5a585396ad0e059fbb4bda05569a8e5bc4ae5250 (diff) | |
parent | dcfc8c84184ffd76680d5e7ef050a814dfff3966 (diff) |
Merge pull request #268 from idontgetoutmuch/fix-offside-infringement
Fix hackage upload errors
Diffstat (limited to 'packages/gsl')
-rw-r--r-- | packages/gsl/hmatrix-gsl.cabal | 24 | ||||
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Internal.hs | 3 |
2 files changed, 11 insertions, 16 deletions
diff --git a/packages/gsl/hmatrix-gsl.cabal b/packages/gsl/hmatrix-gsl.cabal index 6ec7960..76db835 100644 --- a/packages/gsl/hmatrix-gsl.cabal +++ b/packages/gsl/hmatrix-gsl.cabal | |||
@@ -1,21 +1,18 @@ | |||
1 | Name: hmatrix-gsl | 1 | Name: hmatrix-gsl |
2 | Version: 0.19.0.0 | 2 | Version: 0.19.0.0 |
3 | License: GPL | ||
4 | License-file: LICENSE | ||
5 | Author: Alberto Ruiz | ||
6 | Maintainer: Alberto Ruiz <aruiz@um.es> | ||
7 | Stability: provisional | ||
8 | Homepage: https://github.com/albertoruiz/hmatrix | ||
9 | Synopsis: Numerical computation | 3 | Synopsis: Numerical computation |
10 | Description: Purely functional interface to selected numerical computations, | 4 | Description: Purely functional interface to selected numerical computations, |
11 | internally implemented using GSL. | 5 | internally implemented using GSL. |
12 | 6 | Homepage: https://github.com/albertoruiz/hmatrix | |
7 | license: GPL-3 | ||
8 | license-file: LICENSE | ||
9 | Author: Alberto Ruiz | ||
10 | Maintainer: Alberto Ruiz <aruiz@um.es> | ||
11 | Stability: provisional | ||
13 | Category: Math | 12 | Category: Math |
14 | tested-with: GHC ==7.8 | ||
15 | |||
16 | cabal-version: >=1.8 | ||
17 | |||
18 | build-type: Simple | 13 | build-type: Simple |
14 | cabal-version: >=1.18 | ||
15 | |||
19 | 16 | ||
20 | extra-source-files: src/Numeric/GSL/gsl-ode.c | 17 | extra-source-files: src/Numeric/GSL/gsl-ode.c |
21 | 18 | ||
@@ -33,9 +30,6 @@ library | |||
33 | Build-Depends: base<5, hmatrix>=0.18, array, vector, | 30 | Build-Depends: base<5, hmatrix>=0.18, array, vector, |
34 | process, random | 31 | process, random |
35 | 32 | ||
36 | |||
37 | Extensions: ForeignFunctionInterface | ||
38 | |||
39 | hs-source-dirs: src | 33 | hs-source-dirs: src |
40 | Exposed-modules: Numeric.GSL.Differentiation, | 34 | Exposed-modules: Numeric.GSL.Differentiation, |
41 | Numeric.GSL.Integration, | 35 | Numeric.GSL.Integration, |
@@ -98,6 +92,8 @@ library | |||
98 | else | 92 | else |
99 | pkgconfig-depends: gsl | 93 | pkgconfig-depends: gsl |
100 | 94 | ||
95 | default-language: Haskell2010 | ||
96 | |||
101 | 97 | ||
102 | source-repository head | 98 | source-repository head |
103 | type: git | 99 | type: git |
diff --git a/packages/gsl/src/Numeric/GSL/Internal.hs b/packages/gsl/src/Numeric/GSL/Internal.hs index 1217162..e1f8d95 100644 --- a/packages/gsl/src/Numeric/GSL/Internal.hs +++ b/packages/gsl/src/Numeric/GSL/Internal.hs | |||
@@ -131,8 +131,7 @@ type TVM = TV (TM Res) | |||
131 | ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 | 131 | ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 |
132 | 132 | ||
133 | vec x f = unsafeWith x $ \p -> do | 133 | vec x f = unsafeWith x $ \p -> do |
134 | let v g = do | 134 | let v g = g (fi $ V.length x) p |
135 | g (fi $ V.length x) p | ||
136 | f v | 135 | f v |
137 | {-# INLINE vec #-} | 136 | {-# INLINE vec #-} |
138 | 137 | ||