mark unused parameter

While unused, it seems to make sense to keep it, since it explains what
the function is doing.

diff --git a/Remote/List/Util.hs b/Remote/List/Util.hs
index 866bd368670d8b713bd7209f0f5a1ab74d568722..e022d231905e25202059f66c10117930c1c94459 100644 (file)
--- a/Remote/List/Util.hs
+++ b/Remote/List/Util.hs
@@ -39,7 +39,7 @@ keyPossibilities'
        -> [Remote]
        -- ^ all remotes
        -> Annex [Remote]
-keyPossibilities' ii key remotelocations rs = do
+keyPossibilities' ii _key remotelocations rs = do
        u <- getUUID
        let locations = filter (/= u) remotelocations
        let speclocations = map uuid