Correctly show definition matches tabs

Use the correct activeTab fallback to show the tab list on the
definition matches card.

Author: hojberg

src/Code2/Workspace/WorkspaceDefinitionMatchesCard.elm

@@ -241,22 +241,25 @@ withTabList cfg group card =
         card
 
     else
-        case cfg.state.activeTab of
-            TermsTab ->
+        case activeTab group cfg.state.activeTab of
+            Just TermsTab ->
                 tabOrCard [] tabs.terms [ tabs.types, tabs.abilities, tabs.docs, tabs.tests ]
 
-            TypesTab ->
+            Just TypesTab ->
                 tabOrCard [ tabs.terms ] tabs.types [ tabs.abilities, tabs.docs, tabs.tests ]
 
-            AbilitiesTab ->
+            Just AbilitiesTab ->
                 tabOrCard [ tabs.terms, tabs.types ] tabs.abilities [ tabs.docs, tabs.tests ]
 
-            DocsTab ->
+            Just DocsTab ->
                 tabOrCard [ tabs.terms, tabs.types, tabs.abilities ] tabs.docs [ tabs.tests ]
 
-            TestsTab ->
+            Just TestsTab ->
                 tabOrCard [ tabs.terms, tabs.types, tabs.abilities, tabs.docs ] tabs.tests []
 
+            Nothing ->
+                card
+
 
 activeTab : GroupedMatches -> DefinitionMatchesCardTab -> Maybe DefinitionMatchesCardTab
 activeTab { terms, types, tests, abilities, docs } tab =