Validate Array in correct order. (#37)

Author: dmjio

src/ArrayFire/Array.hs

@@ -75,18 +75,19 @@ vector n = mkArray [n] . take n
 
 -- | Smart constructor for creating a matrix 'Array'
 --
--- >>> matrix @Double (2,2) [[1,2],[3,4]]
+-- >>> A.matrix @Double (3,2) [[1,2,3],[4,5,6]]
 -- ArrayFire Array
--- [2 2 1 1]
---    1.0000     2.0000
---    3.0000     4.0000
+-- [3 2 1 1]
+--    1.0000     4.0000
+--    2.0000     5.0000
+--    3.0000     6.0000
 --
 matrix :: AFType a => (Int,Int) -> [[a]] -> Array a
 matrix (x,y)
   = mkArray [x,y]
   . concat
-  . take x
-  . fmap (take y)
+  . take y
+  . fmap (take x)
 
 -- | Smart constructor for creating a cubic 'Array'
 --
@@ -106,9 +107,9 @@ cube (x,y,z)
   = mkArray [x,y,z]
   . concat
   . fmap concat
-  . take x
+  . take z
   . fmap (take y)
-  . (fmap . fmap . take) z
+  . (fmap . fmap . take) x
 
 -- | Smart constructor for creating a tensor 'Array'
 --
@@ -136,10 +137,10 @@ tensor (w,x,y,z)
   . concat
   . fmap concat
   . (fmap . fmap) concat
-  . take w
-  . (fmap . take) x
-  . (fmap . fmap . take) y
-  . (fmap . fmap . fmap . take) z
+  . take z
+  . (fmap . take) y
+  . (fmap . fmap . take) x
+  . (fmap . fmap . fmap . take) w
 
 -- | Internal function for 'Array' construction
 --