From aa1505c65ef9435d6003da10cf1c5101a5ff70a9 Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Thu, 24 Nov 2022 13:42:32 +0000
Subject: Iterate over index list for dependent map.

---
 src/Soat/Data/Product.idr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Soat/Data/Product.idr b/src/Soat/Data/Product.idr
index e9c3d17..52f9181 100644
--- a/src/Soat/Data/Product.idr
+++ b/src/Soat/Data/Product.idr
@@ -63,8 +63,8 @@ indexTabulate f (There elem) = indexTabulate (f . There) elem
 
 public export
 map : (f : (i : a) -> x i -> y i) -> {is : List a} -> x ^ is -> y ^ is
-map f []        = []
-map f (x :: xs) = f _ x :: map f xs
+map f {is = []}        xs = []
+map f {is = (i :: is)} xs = f _ (head xs) :: map f (tail xs)
 
 public export
 (++) : x ^ is -> x ^ js -> x ^ (is ++ js)
-- 
cgit v1.2.3