diff --git a/Command/Upgrade.hs b/Command/Upgrade.hs
index 2b343d9188..ffdf3682f6 100644
--- a/Command/Upgrade.hs
+++ b/Command/Upgrade.hs
@@ -13,12 +13,13 @@ import Annex.Version
 import Annex.Init
 
 cmd :: Command
-cmd = dontCheck repoExists $
-	-- ^ because an old version may not seem to exist
+cmd = dontCheck
+	-- because an old version may not seem to exist
 	-- and also, this avoids automatic silent upgrades before
 	-- this command can start up.
+	repoExists $
+	-- avoid upgrading repo out from under daemon
 	noDaemonRunning $
-	-- ^ avoid upgrading repo out from under daemon
 	command "upgrade" SectionMaintenance "upgrade repository"
 		paramNothing (seek <$$> optParser)
 
diff --git a/Types/Remote.hs b/Types/Remote.hs
index 7e09f0beb4..ed5ccb8fb1 100644
--- a/Types/Remote.hs
+++ b/Types/Remote.hs
@@ -266,10 +266,10 @@ data ImportActions a = ImportActions
 	, retrieveExportWithContentIdentifier 
 		:: ExportLocation
 		-> ContentIdentifier
+		-- file to write content to
 		-> FilePath
-		-- ^ file to write content to
+		-- callback that generates a key from the downloaded content
 		-> a (Maybe Key)
-		-- ^ callback that generates a key from the downloaded content
 		-> MeterUpdate
 		-> a (Maybe Key)
 	-- Exports content to an ExportLocation, and returns the
@@ -292,8 +292,8 @@ data ImportActions a = ImportActions
 		:: FilePath
 		-> Key
 		-> ExportLocation
+		-- old content that it's safe to overwrite
 		-> [ContentIdentifier]
-		-- ^ old content that it's safe to overwrite
 		-> MeterUpdate
 		-> a (Either String ContentIdentifier)
 	-- This is used rather than removeExport when a special remote