1
+ {-# LANGUAGE FlexibleInstances #-}
1
2
{-# LANGUAGE OverloadedStrings #-}
2
3
{-# LANGUAGE ScopedTypeVariables #-}
3
4
module Distribution.Described (
@@ -65,6 +66,7 @@ import Distribution.Utils.GrammarRegex
65
66
-- Types
66
67
import Distribution.Compat.Newtype
67
68
import Distribution.Compiler (CompilerFlavor , CompilerId , knownCompilerFlavors )
69
+ import Distribution.PackageDescription.FieldGrammar (CompatFilePath , CompatLicenseFile )
68
70
import Distribution.FieldGrammar.Newtypes
69
71
import Distribution.ModuleName (ModuleName )
70
72
import Distribution.System (Arch , OS , knownArches , knownOSs )
@@ -95,6 +97,7 @@ import Distribution.Types.SourceRepo (RepoType)
95
97
import Distribution.Types.TestType (TestType )
96
98
import Distribution.Types.UnitId (UnitId )
97
99
import Distribution.Types.UnqualComponentName (UnqualComponentName )
100
+ import Distribution.Utils.Path (LicenseFile , PackageDir , SourceDir , SymbolicPath )
98
101
import Distribution.Verbosity (Verbosity )
99
102
import Distribution.Version (Version , VersionRange )
100
103
import Language.Haskell.Extension (Extension , Language )
@@ -419,7 +422,7 @@ instance Described IncludeRenaming where
419
422
mr = describe (Proxy :: Proxy ModuleRenaming )
420
423
421
424
instance Described Language where
422
- describe _ = REUnion [" Haskell98 " , " Haskell2010" ]
425
+ describe _ = REUnion [" GHC2021 " , " Haskell2010" , " Haskell98 " ]
423
426
424
427
instance Described LegacyExeDependency where
425
428
describe _ = RETodo
@@ -575,3 +578,15 @@ instance Described TestedWith where
575
578
576
579
instance Described FilePathNT where
577
580
describe _ = describe ([] :: [Token ])
581
+
582
+ instance Described (SymbolicPath PackageDir SourceDir ) where
583
+ describe _ = describe ([] :: [Token ])
584
+
585
+ instance Described (SymbolicPath PackageDir LicenseFile ) where
586
+ describe _ = describe ([] :: [Token ])
587
+
588
+ instance Described CompatLicenseFile where
589
+ describe _ = describe ([] :: [Token ])
590
+
591
+ instance Described CompatFilePath where
592
+ describe _ = describe ([] :: [Token ])
0 commit comments