From bab330de338f7eafff7e75af1b7aea2d99d0c51d Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 20 Sep 2024 14:57:55 -0400
Subject: [PATCH] remove sim log file

---
 Annex/Sim.hs   |  2 --
 Command/Sim.hs | 25 ++++++-------------------
 2 files changed, 6 insertions(+), 21 deletions(-)

diff --git a/Annex/Sim.hs b/Annex/Sim.hs
index 89a85d469a..a2567fa6ea 100644
--- a/Annex/Sim.hs
+++ b/Annex/Sim.hs
@@ -70,7 +70,6 @@ data SimState t = SimState
 	, simRebalance :: Bool
 	, simHistory :: [SimCommand]
 	, simVectorClock :: VectorClock
-	, simLogFile :: Maybe FilePath
 	, simRootDirectory :: FilePath
 	}
 	deriving (Show, Read)
@@ -93,7 +92,6 @@ emptySimState rngseed rootdir = SimState
 	, simRebalance = False
 	, simHistory = []
 	, simVectorClock = VectorClock 0
-	, simLogFile = Nothing
 	, simRootDirectory = rootdir
 	}
 
diff --git a/Command/Sim.hs b/Command/Sim.hs
index 93ea3d3d93..add5e4b9ef 100644
--- a/Command/Sim.hs
+++ b/Command/Sim.hs
@@ -56,9 +56,8 @@ seek ("show":[]) = do
 	simdir <- fromRepo gitAnnexSimDir
 	liftIO (restoreSim simdir) >>= \case
 		Left err -> giveup err
-		Right st -> case simLogFile st of
-			Just f -> liftIO $ putStr =<< readFile f
-			Nothing -> return ()
+		Right st -> liftIO $ putStr $ generateSimFile $
+			reverse $ simHistory st
 seek ps = case parseSimCommand ps of
 	Left err -> giveup err
 	Right simcmd -> do
@@ -66,9 +65,9 @@ seek ps = case parseSimCommand ps of
 		simdir <- fromRepo gitAnnexSimDir
 		liftIO (restoreSim simdir) >>= \case
 			Left err -> giveup err
-			Right st ->
+			Right st -> 
 				runSimCommand simcmd repobyname st
-					>>= liftIO . saveState
+					>>= liftIO . suspendSim
 
 start :: Maybe FilePath -> CommandSeek
 start simfile = do
@@ -76,13 +75,8 @@ start simfile = do
 	whenM (liftIO $ doesDirectoryExist simdir) $
 		giveup "A sim was previously started. Use `git-annex sim end` to stop it before starting a new one."
 	
-	let simlogfile = case simfile of
-		Nothing -> simdir </> "log.sim"
-		Just f -> simdir </> takeFileName f
-	
 	rng <- fst . random <$> initStdGen
-	let st = (emptySimState rng simdir)
-		{ simLogFile = Just simlogfile }
+	let st = emptySimState rng simdir
 	case simfile of
 		Nothing -> startup simdir st []
 		Just f -> liftIO (readFile f) >>= \c -> 
@@ -96,16 +90,9 @@ start simfile = do
 		createAnnexDirectory (toRawFilePath simdir)
 		let st' = recordSeed st cs
 		st'' <- go st' repobyname cs
-		liftIO $ saveState st''
+		liftIO $ suspendSim st''
 
 	go st _ [] = return st
 	go st repobyname (c:cs) = do
 		st' <- runSimCommand c repobyname st
 		go st' repobyname cs
-
-saveState :: SimState SimRepo -> IO ()
-saveState st = do
-	suspendSim st
-	case simLogFile st of
-		Just f -> writeFile f $ generateSimFile $ reverse $ simHistory st
-		Nothing -> noop