Rethink selection lists as intmaps

2023-01-15 23:17:47 +00:00
parent 17734738f6
commit 048135c370
17 changed files with 245 additions and 93 deletions
@@ -0,0 +1,13 @@
+module Dodge.Default.SelectionList where
+
+import Dodge.Data.SelectionList
+
+defaultSelectionList :: SelectionList a
+defaultSelectionList = SelectionList
+    {_slItems = []
+    , _slSelPos = Nothing
+    , _slLength = 0
+    , _slRegex = ""
+    , _slRegexInput = False
+    , _slRegexList = []
+    }