@@ -35,6 +35,7 @@ data CabalSpecVersion
3535 | -- 3.10: no changes
3636 CabalSpecV3_12
3737 | CabalSpecV3_14
38+ | CabalSpecV3_16
3839 deriving (Eq , Ord , Show , Read , Enum , Bounded , Data , Generic )
3940
4041instance Binary CabalSpecVersion
@@ -45,6 +46,7 @@ instance NFData CabalSpecVersion where rnf = genericRnf
4546--
4647-- @since 3.0.0.0
4748showCabalSpecVersion :: CabalSpecVersion -> String
49+ showCabalSpecVersion CabalSpecV3_16 = " 3.16"
4850showCabalSpecVersion CabalSpecV3_14 = " 3.14"
4951showCabalSpecVersion CabalSpecV3_12 = " 3.12"
5052showCabalSpecVersion CabalSpecV3_8 = " 3.8"
@@ -67,13 +69,14 @@ showCabalSpecVersion CabalSpecV1_2 = "1.2"
6769showCabalSpecVersion CabalSpecV1_0 = " 1.0"
6870
6971cabalSpecLatest :: CabalSpecVersion
70- cabalSpecLatest = CabalSpecV3_14
72+ cabalSpecLatest = CabalSpecV3_16
7173
7274-- | Parse 'CabalSpecVersion' from version digits.
7375--
7476-- It may fail if for recent versions the version is not exact.
7577cabalSpecFromVersionDigits :: [Int ] -> Maybe CabalSpecVersion
7678cabalSpecFromVersionDigits v
79+ | v == [3 , 16 ] = Just CabalSpecV3_16
7780 | v == [3 , 14 ] = Just CabalSpecV3_14
7881 | v == [3 , 12 ] = Just CabalSpecV3_12
7982 | v == [3 , 8 ] = Just CabalSpecV3_8
@@ -98,6 +101,7 @@ cabalSpecFromVersionDigits v
98101
99102-- | @since 3.4.0.0
100103cabalSpecToVersionDigits :: CabalSpecVersion -> [Int ]
104+ cabalSpecToVersionDigits CabalSpecV3_16 = [3 , 16 ]
101105cabalSpecToVersionDigits CabalSpecV3_14 = [3 , 14 ]
102106cabalSpecToVersionDigits CabalSpecV3_12 = [3 , 12 ]
103107cabalSpecToVersionDigits CabalSpecV3_8 = [3 , 8 ]
0 commit comments