make fuzz test also output its actions to stdout

Command/FuzzTest.hs

@@ -53,17 +53,18 @@ guardTest = unlessM (fromMaybe False . Git.Config.isTrue <$> getConfig key "") $
 fuzz :: Handle -> Annex ()
 fuzz logh = do
 	action <- genFuzzAction
-	liftIO $ do
+	record logh $ flip Started action
-		now <- getCurrentTime
-		hPrint logh $ Started now action
-		hFlush logh
 	result <- tryAnnex $ runFuzzAction action
-	liftIO $ do
+	record logh $ flip Finished $
-		now <- getCurrentTime
+		either (const False) (const True) result
-		hPrint logh $ 
+
-			Finished now $
+record :: Handle -> (UTCTime -> TimeStampedFuzzAction) -> Annex ()
-				either (const False) (const True) result
+record h tmpl = liftIO $ do
-		hFlush logh
+	now <- getCurrentTime
+	let s = show $ tmpl now
+	print s
+	hPrint h s
+	hFlush h
 
 {- Delay for either a fraction of a second, or a few seconds, or up
  - to 1 minute. -}