diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
| commit | e0aff931023a6c3f7a06caaa5dfa1aad2da3889d (patch) | |
| tree | f1960ca033d5196da417e7c4d1f0e579bdc21e46 /Git/Types.hs | |
| parent | 232fce59fabc4243c9b9d7944589986c5cc73f16 (diff) | |
| download | git-repair-e0aff931023a6c3f7a06caaa5dfa1aad2da3889d.tar.gz | |
merge from git-annex
Diffstat (limited to 'Git/Types.hs')
| -rw-r--r-- | Git/Types.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Git/Types.hs b/Git/Types.hs index 8029225..838c9e0 100644 --- a/Git/Types.hs +++ b/Git/Types.hs @@ -11,6 +11,7 @@ import Network.URI import qualified Data.Map as M import System.Posix.Types import Utility.SafeCommand +import Utility.URI () {- Support repositories on local disk, and repositories accessed via an URL. - @@ -27,7 +28,7 @@ data RepoLocation | LocalUnknown FilePath | Url URI | Unknown - deriving (Show, Eq) + deriving (Show, Eq, Ord) data Repo = Repo { location :: RepoLocation @@ -41,7 +42,7 @@ data Repo = Repo , gitEnv :: Maybe [(String, String)] -- global options to pass to git when running git commands , gitGlobalOpts :: [CommandParam] - } deriving (Show, Eq) + } deriving (Show, Eq, Ord) type RemoteName = String |