add ok's

Command/Direct.hs

@@ -33,6 +33,8 @@ perform = do
 	showOutput
 	_ <- inRepo $ Git.Command.runBool "commit"
 		[Param "-a", Param "-m", Param "commit before switching to direct mode"]
+	showEndOk
+
 	top <- fromRepo Git.repoPath
 	(l, clean) <- inRepo $ Git.LsFiles.inRepo [top]
 	forM_ l go
@@ -63,5 +65,6 @@ perform = do
 
 cleanup :: CommandCleanup
 cleanup = do
+	showStart "direct" ""
 	setDirect True
 	return True

Command/Indirect.hs

@@ -35,6 +35,7 @@ perform = do
 		showOutput
 		void $ inRepo $ Git.Command.runBool "commit"
 			[Param "-m", Param "commit before switching to indirect mode"]
+	showEndOk
 
 	-- Note that we set indirect mode early, so that we can use
 	-- moveAnnex in indirect mode.
@@ -77,4 +78,7 @@ perform = do
 		liftIO . nukeFile =<< inRepo (gitAnnexMapping k)
 
 cleanup :: CommandCleanup
-cleanup = return True
+cleanup = do
+	showStart "indirect" ""
+	showEndOk
+	return True