From f4ca592cd0ac4940645f2f17fadac5e0da45424d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 26 Aug 2012 14:34:30 -0400
Subject: refactor

---
 Remote/List.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Remote')

diff --git a/Remote/List.hs b/Remote/List.hs
index 3f3792744..234f310a5 100644
--- a/Remote/List.hs
+++ b/Remote/List.hs
@@ -90,3 +90,7 @@ updateRemote remote = do
 {- All remotes that are not ignored. -}
 enabledRemoteList :: Annex [Remote]
 enabledRemoteList = filterM (repoNotIgnored . repo) =<< remoteList
+
+{- Checks if a remote is a special remote -}
+specialRemote :: Remote -> Bool
+specialRemote r = remotetype r /= Remote.Git.remote
-- 
cgit v1.2.3