getSpecExtensionTags :: Spec -> [String]
getSpecExtensionTags spec = 
  (tName <$> sTags spec) ++ (viName <$> sVendorIDs spec)
getSpecExtensionTags :: Spec -> [String]
getSpecExtensionTags spec = 
  (tName <$> sTags spec) ++ (viName <$> sVendorIDs spec)
getSpecExtensionTags spec = 
  (tName <$> sTags spec) ++ (viName <$> sVendorIDs spec)