summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2013-06-24 07:37:40 -0700
committerAlberto Ruiz <aruiz@um.es>2013-06-24 07:37:40 -0700
commit2c06aabae5d50164ae520c70c9dc61aefc09cb72 (patch)
tree1a2a6780d40b04fde19c8b6a407ecec1542fee3d /lib/Data/Packed/Internal
parentea2e0fad701d6dcacc99a17034d68ccb11532e43 (diff)
parent027fa6391bc7b21a8aecbdc577ad485aee274333 (diff)
Merge pull request #43 from mikeplus64/master
Add FFI helpers
Diffstat (limited to 'lib/Data/Packed/Internal')
-rw-r--r--lib/Data/Packed/Internal/Matrix.hs10
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs
index 367c189..255009c 100644
--- a/lib/Data/Packed/Internal/Matrix.hs
+++ b/lib/Data/Packed/Internal/Matrix.hs
@@ -132,12 +132,10 @@ mat a f =
132 let m g = do 132 let m g = do
133 g (fi (rows a)) (fi (cols a)) p 133 g (fi (rows a)) (fi (cols a)) p
134 f m 134 f m
135 135-- | Creates a vector by concatenation of rows. If the matrix is ColumnMajor, this operation requires a transpose.
136{- | Creates a vector by concatenation of rows 136--
137 137-- @\> flatten ('ident' 3)
138@\> flatten ('ident' 3) 138-- 9 |> [1.0,0.0,0.0,0.0,1.0,0.0,0.0,0.0,1.0]@
1399 |> [1.0,0.0,0.0,0.0,1.0,0.0,0.0,0.0,1.0]@
140-}
141flatten :: Element t => Matrix t -> Vector t 139flatten :: Element t => Matrix t -> Vector t
142flatten = xdat . cmat 140flatten = xdat . cmat
143 141