1 files changed, 2 insertions, 0 deletions

diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs
index 0664e9b..b8de245 100644
--- a/lib/Data/Packed/Internal/Matrix.hs
+++ b/lib/Data/Packed/Internal/Matrix.hs
@@ -108,6 +108,8 @@ createMatrix order r c = do
 
 reshape c v = matrixFromVector RowMajor c v
 
+singleton x = reshape 1 (fromList [x])
+
 transdataG :: Storable a => Int -> Vector a -> Int -> Vector a 
 transdataG c1 d c2 = fromList . concat . transpose . partit c1 . toList $ d