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 /Command.hs | |
| 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 'Command.hs')
| -rw-r--r-- | Command.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command.hs b/Command.hs index 9fafb18ef..06fc704bd 100644 --- a/Command.hs +++ b/Command.hs @@ -43,7 +43,7 @@ type CommandCleanup = Annex Bool - functions. -} type CommandSeekStrings = CommandStartString -> CommandSeek type CommandStartString = String -> CommandStart -type BackendFile = (FilePath, Maybe Backend) +type BackendFile = (FilePath, Maybe (Backend Annex)) type CommandSeekBackendFiles = CommandStartBackendFile -> CommandSeek type CommandStartBackendFile = BackendFile -> CommandStart type AttrFile = (FilePath, String) @@ -95,7 +95,7 @@ notAnnexed file a = do Just _ -> return Nothing Nothing -> a -isAnnexed :: FilePath -> ((Key, Backend) -> Annex (Maybe a)) -> Annex (Maybe a) +isAnnexed :: FilePath -> ((Key, Backend Annex) -> Annex (Maybe a)) -> Annex (Maybe a) isAnnexed file a = do r <- Backend.lookupFile file case r of |