dropped explicit indices argument. an interface change, so beware.

conal · Feb 28, 2012 · 50f29a1 · 50f29a1
1 parent 37abea3
commit 50f29a1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/src/TypeUnary/Vec.hs b/src/TypeUnary/Vec.hs
@@ -238,9 +238,13 @@ pokeV' (Succ n) p (a :< as) = do poke p a
 -- dictionary, remove the sizeOf dependence on @a@.
 
 -- | Indices under @n@: 'index0' :< 'index1' :< ...
-indices :: Nat n -> Vec n (Index n)
-indices Zero     = ZVec
-indices (Succ n) = index0 :< fmap succI (indices n)
+indices :: IsNat n => Vec n (Index n)
+indices = indices' nat
+
+-- Variant of 'indices' with explicit argument.
+indices' :: Nat n -> Vec n (Index n)
+indices' Zero     = ZVec
+indices' (Succ n) = index0 :< fmap succI (indices' n)
 
 -- TODO: Try reimplementing many Vec functions via foldr.  Warning: some
 -- (most?) will fail because they rely on a polymorphic combining function.

diff --git a/type-unary.cabal b/type-unary.cabal
@@ -1,5 +1,5 @@
 Name:                type-unary
-Version:             0.1.18
+Version:             0.2.0
 Cabal-Version:       >= 1.2
 Synopsis:            
   Type-level and typed unary natural numbers, inequality proofs, vectors