diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-31 04:19:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-31 04:19:10 -0400 |
| commit | 25e4b116c7ab436492a86236f796310d405517a1 (patch) | |
| tree | c5121c9f132ff9dbf0921082724472c9315bd19d | |
| parent | ae6fcb853d59681057a7f23424c321c97c4c0776 (diff) | |
type alias
| -rw-r--r-- | Annex.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -64,6 +64,8 @@ instance MonadBaseControl IO Annex where data OutputType = NormalOutput | QuietOutput | JSONOutput +type Matcher a = Either [Utility.Matcher.Token a] (Utility.Matcher.Matcher a) + -- internal state storage data AnnexState = AnnexState { repo :: Git.Repo @@ -81,7 +83,7 @@ data AnnexState = AnnexState , forcenumcopies :: Maybe Int , toremote :: Maybe String , fromremote :: Maybe String - , limit :: Either [Utility.Matcher.Token (FilePath -> Annex Bool)] (Utility.Matcher.Matcher (FilePath -> Annex Bool)) + , limit :: Matcher (FilePath -> Annex Bool) , forcetrust :: [(UUID, TrustLevel)] , trustmap :: Maybe TrustMap , ciphers :: M.Map EncryptedCipher Cipher |