diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-25 21:02:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-25 21:02:34 -0400 |
| commit | 109a719b03dbeb70eb317be17f7e18567efa9dac (patch) | |
| tree | b48e0ef83b2472e3c99bd9c2d0f8cd5f10b215fd /Backend | |
| parent | f8e303e1c9a9d976a4dc339295aa0f09eb997b7f (diff) | |
parameterize Backend type
This allows the Backend type to not depend on the Annex type, and
so the Annex type can later be moved out of TypeInternals.
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/File.hs | 2 | ||||
| -rw-r--r-- | Backend/SHA1.hs | 2 | ||||
| -rw-r--r-- | Backend/URL.hs | 2 | ||||
| -rw-r--r-- | Backend/WORM.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/Backend/File.hs b/Backend/File.hs index 27b2a6901..c8ddd5938 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -27,7 +27,7 @@ import qualified Annex import UUID import Messages -backend :: Backend +backend :: Backend Annex backend = Backend { name = mustProvide, getKey = mustProvide, diff --git a/Backend/SHA1.hs b/Backend/SHA1.hs index 2f3e2cf53..e665e5da7 100644 --- a/Backend/SHA1.hs +++ b/Backend/SHA1.hs @@ -20,7 +20,7 @@ import qualified Annex import Locations import Content -backend :: Backend +backend :: Backend Annex backend = Backend.File.backend { name = "SHA1", getKey = keyValue, diff --git a/Backend/URL.hs b/Backend/URL.hs index 3eb7376e0..8ed354aed 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -14,7 +14,7 @@ import TypeInternals import Utility import Messages -backend :: Backend +backend :: Backend Annex backend = Backend { name = "URL", getKey = keyValue, diff --git a/Backend/WORM.hs b/Backend/WORM.hs index 0c9301238..cd4254e2b 100644 --- a/Backend/WORM.hs +++ b/Backend/WORM.hs @@ -21,7 +21,7 @@ import qualified Annex import Content import Messages -backend :: Backend +backend :: Backend Annex backend = Backend.File.backend { name = "WORM", getKey = keyValue, |