remove sim log file
This commit is contained in:
parent
24b3aed84a
commit
bab330de33
2 changed files with 6 additions and 21 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue