diff options
author | Alberto Ruiz <aruiz@um.es> | 2016-11-02 18:55:09 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2016-11-02 18:55:09 +0100 |
commit | fc88b36a3067269aa0cd74d5aa56b46edb7bd129 (patch) | |
tree | 6e40684c1769c6e00d6e6ef92d017812bb2b0a20 /packages/gsl/src/Numeric/GSL/Internal.hs | |
parent | 155cac879362d2672a5504ba134728512b314c60 (diff) |
use new wrappers in gsl functions
Diffstat (limited to 'packages/gsl/src/Numeric/GSL/Internal.hs')
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Internal.hs | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/packages/gsl/src/Numeric/GSL/Internal.hs b/packages/gsl/src/Numeric/GSL/Internal.hs index dcd3bc4..f70e167 100644 --- a/packages/gsl/src/Numeric/GSL/Internal.hs +++ b/packages/gsl/src/Numeric/GSL/Internal.hs | |||
@@ -1,3 +1,5 @@ | |||
1 | {-# LANGUAGE FlexibleContexts #-} | ||
2 | |||
1 | -- | | 3 | -- | |
2 | -- Module : Numeric.GSL.Internal | 4 | -- Module : Numeric.GSL.Internal |
3 | -- Copyright : (c) Alberto Ruiz 2009 | 5 | -- Copyright : (c) Alberto Ruiz 2009 |
@@ -23,7 +25,7 @@ module Numeric.GSL.Internal( | |||
23 | createV, | 25 | createV, |
24 | createMIO, | 26 | createMIO, |
25 | module Numeric.LinearAlgebra.Devel, | 27 | module Numeric.LinearAlgebra.Devel, |
26 | check,(#),vec, ww2, | 28 | check,(#),(#!),vec, ww2, |
27 | Res,TV,TM,TCV,TCM | 29 | Res,TV,TM,TCV,TCM |
28 | ) where | 30 | ) where |
29 | 31 | ||
@@ -86,12 +88,12 @@ aux_vTom f n p rr cr r = g where | |||
86 | 88 | ||
87 | createV n fun msg = unsafePerformIO $ do | 89 | createV n fun msg = unsafePerformIO $ do |
88 | r <- createVector n | 90 | r <- createVector n |
89 | fun # r #| msg | 91 | (r # id) fun #| msg |
90 | return r | 92 | return r |
91 | 93 | ||
92 | createMIO r c fun msg = do | 94 | createMIO r c fun msg = do |
93 | res <- createMatrix RowMajor r c | 95 | res <- createMatrix RowMajor r c |
94 | fun # res #| msg | 96 | (res # id) fun #| msg |
95 | return res | 97 | return res |
96 | 98 | ||
97 | -------------------------------------------------------------------------------- | 99 | -------------------------------------------------------------------------------- |
@@ -135,3 +137,10 @@ infixl 1 # | |||
135 | a # b = applyRaw a b | 137 | a # b = applyRaw a b |
136 | {-# INLINE (#) #-} | 138 | {-# INLINE (#) #-} |
137 | 139 | ||
140 | --infixr 1 # | ||
141 | --a # b = apply a b | ||
142 | --{-# INLINE (#) #-} | ||
143 | |||
144 | a #! b = a # b # id | ||
145 | {-# INLINE (#!) #-} | ||
146 | |||