Work on collapsing close item list

2023-02-11 09:09:23 +00:00
parent a8e00ac025
commit 10f732d489
6 changed files with 183 additions and 63 deletions
@@ -4,7 +4,7 @@ import Dodge.Data.SelectionList

 defaultSelectionList :: SelectionList a
 defaultSelectionList = SelectionList
-    {_slItems = []
+    {_slItems = mempty
    , _slSelPos = Nothing
 --    , _slLength = 0
    , _slRegex = ""