use action, not sideAction

sideAction is for things not generally related to the current action being
performed. And, it adds a newline after the side action. This was not the
right thing to use for stuff like "checksum", where doing a checksum is
part of the git annex get process, and indeed we want it to display
"(checksum...) ok"

Annex/Init.hs

@@ -209,7 +209,7 @@ checkSharedClone = inRepo Git.Objects.isSharedClone
 initSharedClone :: Bool -> Annex ()
 initSharedClone False = return ()
 initSharedClone True = do
-	showSideAction "Repository was cloned with --shared; setting annex.hardlink=true and making repository untrusted."
+	showLongNote "Repository was cloned with --shared; setting annex.hardlink=true and making repository untrusted."
 	u <- getUUID
 	trustSet u UnTrusted
 	setConfig (annexConfig "hardlink") (Git.Config.boolConfig True)

Backend/Hash.hs

@@ -116,7 +116,7 @@ checkKeyChecksum hash key file = go `catchHardwareFault` hwfault
 		case (mstat, fast) of
 			(Just stat, False) -> do
 				filesize <- liftIO $ getFileSize' file stat
-				showSideAction "checksum"
+				showAction "checksum"
 				check <$> hashFile hash file filesize
 			_ -> return True
 	expected = keyHash key

Command/ImportFeed.hs

@@ -115,7 +115,7 @@ getCache :: Maybe String -> Annex Cache
 getCache opttemplate = ifM (Annex.getState Annex.force)
 	( ret S.empty S.empty
 	, do
-		showSideAction "checking known urls"
+		showAction "checking known urls"
 		(is, us) <- unzip <$> (mapM knownItems =<< knownUrls)
 		ret (S.fromList us) (S.fromList (concat is))
 	)

Command/TestRemote.hs

@@ -63,7 +63,7 @@ start :: Int -> RemoteName -> CommandStart
 start basesz name = do
 	showStart "testremote" name
 	r <- either error id <$> Remote.byName' name
-	showSideAction "generating test keys"
+	showAction "generating test keys"
 	fast <- Annex.getState Annex.fast
 	ks <- mapM randKey (keySizes basesz fast)
 	rs <- catMaybes <$> mapM (adjustChunkSize r) (chunkSizes basesz fast)

Command/View.hs

@@ -39,7 +39,7 @@ start ps = do
 
 perform :: View -> CommandPerform
 perform view = do
-	showSideAction "searching"
+	showAction "searching"
 	next $ checkoutViewBranch view applyView
 
 paramView :: String

Remote/WebDAV.hs

@@ -185,7 +185,7 @@ toDavPass = B8.fromString
  -}
 testDav :: URLString -> Maybe CredPair -> Annex ()
 testDav url (Just (u, p)) = do
-	showSideAction "testing WebDAV server"
+	showAction "testing WebDAV server"
 	test $ liftIO $ evalDAVT url $ do
 		prepDAV user pass
 		makeParentDirs