Skip to content

Commit 3761ce8

Browse files
committed
Use liftIO
1 parent 20a7376 commit 3761ce8

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

cardano-testnet/src/Testnet/Runtime.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -123,8 +123,8 @@ startNode tp node ipv4 port _testnetMagic nodeCmd = GHC.withFrozenCallStack $ do
123123
socketDir = makeSocketDir tp
124124
logDir = makeLogDir tp
125125

126-
void . liftIOAnnotated $ createDirectoryIfMissingNew $ logDir </> node
127-
void . liftIOAnnotated $ createSubdirectoryIfMissingNew tempBaseAbsPath (socketDir </> node)
126+
void . liftIO $ createDirectoryIfMissingNew $ logDir </> node
127+
void . liftIO $ createSubdirectoryIfMissingNew tempBaseAbsPath (socketDir </> node)
128128

129129
let nodeStdoutFile = logDir </> node </> "stdout.log"
130130
nodeStderrFile = logDir </> node </> "stderr.log"

0 commit comments

Comments
 (0)