Add toList and fromList functions in FixedVector.hs.

diff --git a/src/FixedVector.hs b/src/FixedVector.hs
index 0a5312a981fb08ebc45cc67a08c21fc288899d8a..8848b9bf8ad25b45dbcb488dbf34dafa4750e5b2 100644 (file)
--- a/src/FixedVector.hs
+++ b/src/FixedVector.hs
@@ -170,6 +170,7 @@ angle v1 v2 =
 
 
 -- | Safe indexing.
+--
 --   Examples:
 --
 --   >>> let v1 = make3d (1,2,3)
@@ -184,6 +185,28 @@ angle v1 v2 =
   | otherwise                     = Just $ v1 ! idx
 
 
+-- | Convert vector to a list.
+--
+--   Examples:
+--
+--   >>> let v1 = make2d (1,2)
+--   >>> toList v1
+--   [1,2]
+--
+toList :: (V.Vector v a) => Vn (v a) -> [a]
+toList (Vn v1) = V.toList v1
+
+
+-- | Convert a list to a vector.
+--
+--   Examples:
+--
+--   >>> fromList [1,2] :: Vn (Vec2D Int)
+--   (1,2)
+--
+fromList :: (V.Vector v a) => [a] -> Vn (v a)
+fromList xs = Vn $ V.fromList xs
+
 -- * Two- and three-dimensional wrappers.
 --
 -- These two wrappers are instances of 'Vector', so they inherit all