WIP bugfix: handle absence of gsm/

IntersectMBO · Jan 17, 2024 · ff123a1 · ff123a1
1 parent 2630870
commit ff123a1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/...ros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/Node/GSM.hs b/...ros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/Node/GSM.hs
@@ -35,7 +35,8 @@ import qualified Ouroboros.Consensus.HardFork.History.Qry as Qry
 import           Ouroboros.Consensus.Storage.ChainDB.API (ChainDB)
 import qualified Ouroboros.Consensus.Util.NormalForm.StrictTVar as StrictSTM
 import           Ouroboros.Consensus.Util.Time (nominalDiffTimeToMicroseconds)
-import           System.FS.API (HasFS, doesFileExist, removeFile, withFile)
+import           System.FS.API (HasFS, createDirectoryIfMissing, doesFileExist,
+                     removeFile, withFile)
 import           System.FS.API.Types (AllowExisting (..), FsPath, OpenMode (..),
                      mkFsPath)
 
@@ -316,6 +317,7 @@ realMarkerFileView !_cdb hasFS =
         removeMarkerFile = removeFile hasFS markerFile
       ,
         touchMarkerFile = do
+            createDirectoryIfMissing hasFS True (mkFsPath [])
             alreadyExists <- hasMarkerFile
             unless alreadyExists $
                 withFile hasFS markerFile (WriteMode MustBeNew) $ \_h ->