diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
index 994de9da8c7a95f1268af95183ab68366ba982b0..7cf92a4f5d323cab89c30ddf76d553c688d3b0be 100644
--- a/cabal-install/Distribution/Client/Upload.hs
+++ b/cabal-install/Distribution/Client/Upload.hs
@@ -61,10 +61,7 @@ uploadDoc transport verbosity repos mUsername mPassword path = do
         }
         (reverseSuffix, reversePkgid) = break (== '-') (reverse (takeFileName path))
         pkgid = reverse $ tail reversePkgid
-    when (reverse reverseSuffix /= "docs.tar.gz" || null reversePkgid || head reversePkgid /= '-') $ do
-      print path
-      print reverseSuffix
-      print reversePkgid
+    when (reverse reverseSuffix /= "docs.tar.gz" || null reversePkgid || head reversePkgid /= '-') $
       die "Expected a file name matching the pattern <pkgid>-docs.tar.gz"
     Username username <- maybe promptUsername return mUsername
     Password password <- maybe promptPassword return mPassword