Add Index.Seq.toSeq

ollef · May 23, 2024 · 021ffe1 · 021ffe1
1 parent 77490e2
commit 021ffe1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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