DNM: test json schema validation

haskell · Dec 11, 2024 · 5af5d6f · 5af5d6f
1 parent 427cb5e
commit 5af5d6f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/cvss/src/Security/CVSS.hs b/code/cvss/src/Security/CVSS.hs
@@ -148,7 +148,7 @@ cvssShow :: Bool -> CVSS -> Text
 cvssShow ordered cvss = case cvssVersion cvss of
   CVSS31 -> Text.intercalate "/" ("CVSS:3.1" : components)
   CVSS30 -> Text.intercalate "/" ("CVSS:3.0" : components)
-  CVSS20 -> Text.intercalate "/" components
+  CVSS20 -> Text.intercalate "/" ("OOPS" : components)
   where
     components = map toComponent (cvssOrder (cvssMetrics cvss))
     toComponent :: Metric -> Text