From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 7 Dec 2018 14:54:07 +0000 (-0500)
Subject: src/Linear/Vector.hs: add a Vec0 type.
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=numerical-analysis.git;a=commitdiff_plain;h=261aa714471648c0bcbc603117a420a1fc617ba3

src/Linear/Vector.hs: add a Vec0 type.
---

diff --git a/src/Linear/Vector.hs b/src/Linear/Vector.hs
index 56bc2af..c930715 100644
--- a/src/Linear/Vector.hs
+++ b/src/Linear/Vector.hs
@@ -8,6 +8,7 @@
 
 module Linear.Vector (
   module Data.Vector.Fixed.Boxed,
+  Vec0,
   Vec1,
   (!?),
   delete,
@@ -21,6 +22,7 @@ import Data.Vector.Fixed (
   N1,
   S,
   Vector(..),
+  Z,
   fromList,
   toList )
 import Data.Vector.Fixed (
@@ -35,7 +37,7 @@ import Data.Vector.Fixed.Boxed (
   Vec5 )
 import NumericPrelude hiding ( abs, length, foldl )
 
-
+type Vec0 = Vec Z
 type Vec1 = Vec N1