Is suffix of any

Author: hojberg

src/Code/CodebaseTree.elm

@@ -217,7 +217,7 @@ viewDefinitionListing : FQNSet -> DefinitionListing -> Html Msg
 viewDefinitionListing openDefinitions listing =
     let
         isOpen fqn =
-            FQNSet.member fqn openDefinitions
+            FQNSet.isSuffixOfAny openDefinitions fqn
 
         viewDefRow ref fqn =
             viewListingRow

src/Code/FullyQualifiedNameSet.elm

@@ -6,6 +6,7 @@ module Code.FullyQualifiedNameSet exposing
     , fromReferenceList
     , insert
     , isPrefixOfAny
+    , isSuffixOfAny
     , member
     , remove
     , singleton
@@ -97,6 +98,17 @@ isPrefixOfAny (FQNSet set) prefixFqn =
             )
 
 
+isSuffixOfAny : FQNSet -> FQN -> Bool
+isSuffixOfAny (FQNSet set) suffixFqn =
+    set
+        |> Set.toList
+        |> List.map FQN.fromString
+        |> List.any
+            (\item ->
+                FQN.isSuffixOf suffixFqn item && not (FQN.equals item suffixFqn)
+            )
+
+
 toggle : FQN -> FQNSet -> FQNSet
 toggle fqn (FQNSet set) =
     FQNSet (Set.Extra.toggle (FQN.toString fqn) set)