@@ -33,12 +33,14 @@ data SPDXLicenseListVersion
3333 | SPDXLicenseListVersion_3_23
3434 | SPDXLicenseListVersion_3_25
3535 | SPDXLicenseListVersion_3_26
36+ | SPDXLicenseListVersion_3_28
3637 deriving (Eq , Ord , Show , Enum , Bounded )
3738
3839allVers :: Set. Set SPDXLicenseListVersion
3940allVers = Set. fromList [minBound .. maxBound ]
4041
4142prettyVer :: SPDXLicenseListVersion -> Text
43+ prettyVer SPDXLicenseListVersion_3_28 = " SPDX License List 3.28"
4244prettyVer SPDXLicenseListVersion_3_26 = " SPDX License List 3.26"
4345prettyVer SPDXLicenseListVersion_3_25 = " SPDX License List 3.25"
4446prettyVer SPDXLicenseListVersion_3_23 = " SPDX License List 3.23"
@@ -50,6 +52,7 @@ prettyVer SPDXLicenseListVersion_3_2 = "SPDX License List 3.2"
5052prettyVer SPDXLicenseListVersion_3_0 = " SPDX License List 3.0"
5153
5254suffixVer :: SPDXLicenseListVersion -> String
55+ suffixVer SPDXLicenseListVersion_3_28 = " _3_28"
5356suffixVer SPDXLicenseListVersion_3_26 = " _3_26"
5457suffixVer SPDXLicenseListVersion_3_25 = " _3_25"
5558suffixVer SPDXLicenseListVersion_3_23 = " _3_23"
@@ -64,23 +67,24 @@ suffixVer SPDXLicenseListVersion_3_0 = "_3_0"
6467-- Per version
6568-------------------------------------------------------------------------------
6669
67- data PerV a = PerV a a a a a a a a a
70+ data PerV a = PerV a a a a a a a a a a
6871 deriving (Show , Functor , Foldable , Traversable )
6972
7073class Functor f => Representable i f | f -> i where
7174 index :: i -> f a -> a
7275 tabulate :: (i -> a ) -> f a
7376
7477instance Representable SPDXLicenseListVersion PerV where
75- index SPDXLicenseListVersion_3_0 (PerV x _ _ _ _ _ _ _ _) = x
76- index SPDXLicenseListVersion_3_2 (PerV _ x _ _ _ _ _ _ _) = x
77- index SPDXLicenseListVersion_3_6 (PerV _ _ x _ _ _ _ _ _) = x
78- index SPDXLicenseListVersion_3_9 (PerV _ _ _ x _ _ _ _ _) = x
79- index SPDXLicenseListVersion_3_10 (PerV _ _ _ _ x _ _ _ _) = x
80- index SPDXLicenseListVersion_3_16 (PerV _ _ _ _ _ x _ _ _) = x
81- index SPDXLicenseListVersion_3_23 (PerV _ _ _ _ _ _ x _ _) = x
82- index SPDXLicenseListVersion_3_25 (PerV _ _ _ _ _ _ _ x _) = x
83- index SPDXLicenseListVersion_3_26 (PerV _ _ _ _ _ _ _ _ x) = x
78+ index SPDXLicenseListVersion_3_0 (PerV x _ _ _ _ _ _ _ _ _) = x
79+ index SPDXLicenseListVersion_3_2 (PerV _ x _ _ _ _ _ _ _ _) = x
80+ index SPDXLicenseListVersion_3_6 (PerV _ _ x _ _ _ _ _ _ _) = x
81+ index SPDXLicenseListVersion_3_9 (PerV _ _ _ x _ _ _ _ _ _) = x
82+ index SPDXLicenseListVersion_3_10 (PerV _ _ _ _ x _ _ _ _ _) = x
83+ index SPDXLicenseListVersion_3_16 (PerV _ _ _ _ _ x _ _ _ _) = x
84+ index SPDXLicenseListVersion_3_23 (PerV _ _ _ _ _ _ x _ _ _) = x
85+ index SPDXLicenseListVersion_3_25 (PerV _ _ _ _ _ _ _ x _ _) = x
86+ index SPDXLicenseListVersion_3_26 (PerV _ _ _ _ _ _ _ _ x _) = x
87+ index SPDXLicenseListVersion_3_28 (PerV _ _ _ _ _ _ _ _ _ x) = x
8488
8589 tabulate f = PerV
8690 (f SPDXLicenseListVersion_3_0 )
@@ -92,6 +96,7 @@ instance Representable SPDXLicenseListVersion PerV where
9296 (f SPDXLicenseListVersion_3_23 )
9397 (f SPDXLicenseListVersion_3_25 )
9498 (f SPDXLicenseListVersion_3_26 )
99+ (f SPDXLicenseListVersion_3_28 )
95100
96101-------------------------------------------------------------------------------
97102-- Sorting
0 commit comments