From f8ebce939613817b8ba7fc9ae119def39f48d06b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 22 Aug 2013 23:36:35 -0400
Subject: [PATCH] better cases

---
 Remote/Web.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Remote/Web.hs b/Remote/Web.hs
index 7d1808bd44..42ae032e92 100644
--- a/Remote/Web.hs
+++ b/Remote/Web.hs
@@ -74,7 +74,7 @@ downloadKey key _file dest _p = get =<< getUrls key
 			case downloader of
 				QuviDownloader -> flip downloadUrl dest
 					=<< withQuviOptions Quvi.queryLinks [Quvi.httponly, Quvi.quiet] u'
-				_ -> downloadUrl [u'] dest
+				DefaultDownloader -> downloadUrl [u'] dest
 
 downloadKeyCheap :: Key -> FilePath -> Annex Bool
 downloadKeyCheap _ _ = return False
@@ -102,6 +102,6 @@ checkKey' key us = untilTrue us $ \u -> do
 	case downloader of
 		QuviDownloader ->
 			withQuviOptions Quvi.check [Quvi.httponly, Quvi.quiet] u'
-		_ -> do
+		DefaultDownloader -> do
 			headers <- getHttpHeaders
 			liftIO $ Url.check u' headers (keySize key)