From 25e4b116c7ab436492a86236f796310d405517a1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 31 Dec 2011 04:19:10 -0400 Subject: type alias --- Annex.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Annex.hs b/Annex.hs index 22fd1b874..91d374aec 100644 --- a/Annex.hs +++ b/Annex.hs @@ -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 -- cgit v1.2.3