From 021ffe1adbe4f43110e17b28512b5451820495e0 Mon Sep 17 00:00:00 2001
From: Olle Fredriksson <fredriksson.olle@gmail.com>
Date: Thu, 23 May 2024 22:47:58 +0200
Subject: [PATCH] Add Index.Seq.toSeq

---
 src/Index/Seq.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Index/Seq.hs b/src/Index/Seq.hs
index 7870b94..4f1571a 100644
--- a/src/Index/Seq.hs
+++ b/src/Index/Seq.hs
@@ -9,7 +9,7 @@ import qualified Data.Sequence as Seq
 import Index
 import Protolude hiding (Seq)
 
-newtype Seq v a = Seq (Seq.Seq a)
+newtype Seq v a = Seq {toSeq :: Seq.Seq a}
   deriving (Show, Foldable)
 
 pattern Empty :: Seq Void a