summaryrefslogtreecommitdiff
path: root/Remote/List.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-08-26 14:34:30 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-08-26 14:34:30 -0400
commitf4ca592cd0ac4940645f2f17fadac5e0da45424d (patch)
treeda00855b29ceeddbb776c7fb28f2b0894d0fee2e /Remote/List.hs
parent78d3add86b564149cd1e7c4527deffbf30cf839b (diff)
refactor
Diffstat (limited to 'Remote/List.hs')
-rw-r--r--Remote/List.hs4
1 files changed, 4 insertions, 0 deletions
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