Add Ord instances for Cradle

This commit is contained in:
Moritz Kiefer 2016-02-16 21:44:10 +01:00
parent 20c999e098
commit 4874bc914b
2 changed files with 5 additions and 6 deletions

View File

@ -134,7 +134,7 @@ data Project = CabalProject
| SandboxProject | SandboxProject
| PlainProject | PlainProject
| StackProject StackEnv | StackProject StackEnv
deriving (Eq, Show) deriving (Eq, Show, Ord)
isCabalHelperProject :: Project -> Bool isCabalHelperProject :: Project -> Bool
isCabalHelperProject StackProject {} = True isCabalHelperProject StackProject {} = True
@ -146,7 +146,7 @@ data StackEnv = StackEnv {
, seBinPath :: [FilePath] , seBinPath :: [FilePath]
, seSnapshotPkgDb :: FilePath , seSnapshotPkgDb :: FilePath
, seLocalPkgDb :: FilePath , seLocalPkgDb :: FilePath
} deriving (Eq, Show) } deriving (Eq, Show, Ord)
-- | The environment where this library is used. -- | The environment where this library is used.
data Cradle = Cradle { data Cradle = Cradle {
@ -161,7 +161,7 @@ data Cradle = Cradle {
, cradleCabalFile :: Maybe FilePath , cradleCabalFile :: Maybe FilePath
-- | The build info directory. -- | The build info directory.
, cradleDistDir :: FilePath , cradleDistDir :: FilePath
} deriving (Eq, Show) } deriving (Eq, Show, Ord)
data GmStream = GmOutStream | GmErrStream data GmStream = GmOutStream | GmErrStream
deriving (Show) deriving (Show)

View File

@ -1,6 +1,5 @@
flags: {} flags: {}
packages: packages:
- '.' - '.'
extra-deps: extra-deps: []
- cabal-helper-0.6.2.0 resolver: lts-5.3
resolver: lts-3.20