Handle SPDX licences starting with a digit

ffaf1 · Sep 12, 2024 · 573e5b6 · 573e5b6
1 parent 1077091
commit 573e5b6
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/cabal-dev-scripts/src/GenUtils.hs b/cabal-dev-scripts/src/GenUtils.hs
@@ -15,6 +15,7 @@ import Data.Text    (Text)
 import GHC.Generics (Generic)
 
 import qualified Data.Algorithm.Diff as Diff
+import qualified Data.Char           as C
 import qualified Data.Map            as Map
 import qualified Data.Set            as Set
 import qualified Data.Text           as T
@@ -160,9 +161,11 @@ toConstructorName t = t
     f c   = c
 
     special :: Text -> Text
-    special "0BSD"          = "NullBSD"
-    special "389_exception" = "DS389_exception"
-    special u               = u
+    -- Handle licences starting with a digit.
+    special u
+      | Just (c, _) <- T.uncons u
+      , C.isDigit c = "NN_" <> u
+    special u = u
 
 mkList :: [Text] -> Text
 mkList []     = "    []"