Tweak combine inventory regex

src/SelectionIntMap.hs

@@ -10,8 +10,8 @@ import LensHelp
 
 setShownIntMap :: SelectionIntMap a -> SelectionIntMap a
 setShownIntMap sm = case sm ^. smRegex of
-    "" | not (sm ^. smRegexInput) -> sm & smShownItems .~ IM.fromAscList (zip [0..] allitms)
-    str -> sm & smShownItems 
+    NoSMRegex -> sm & smShownItems .~ IM.fromAscList (zip [0..] allitms)
+    SMRegex str _ -> sm & smShownItems 
         .~ IM.fromAscList (zip [0..] (f str : filter (regexList str . _siPictures) allitms))
   where
     allitms = sm ^. smItems
@@ -55,6 +55,3 @@ getIthYOffset :: Float -> Float -> SelectionIntMap a -> Int -> Float
 getIthYOffset ygap scale sm i = (scale * 10 + ygap) * (fromIntegral yint + 1)
   where
     yint = getIthPos i (sm ^. smShownItems)
-    
---selectionSectionsToIntMap :: SelectionSections a -> SelectionIntMap a
---selectionSectionsToIntMap ss = undefined