Commit 021f3476 authored by Valentin Reis's avatar Valentin Reis

sandbox work

parent 42e018b0
Pipeline #5339 passed with stage
in 2 minutes and 27 seconds
......@@ -155,11 +155,6 @@ runI (Instrumentation crProc (StdOutLog stdOut) (StdErrLog stdErr) t) = try
| otherwise
-> yield b >> untilMatch msg sawTraceback
Nothing -> return Clean
{-withSinkFileNoBuffering-}
{-:: (MonadUnliftIO m, MonadIO n)-}
{-=> IO.FilePath-}
{--> (ConduitM ByteString o n () -> m a)-}
{--> m a-}
withSinkFileNoBuffering filepath inner =
withRunInIO $ \run -> IO.withBinaryFile filepath IO.WriteMode $ \h -> do
hSetBuffering h NoBuffering
......
......@@ -24,6 +24,7 @@ import Data.Text as T
( unpack
, Text
)
import System.IO
opts :: StackArgs -> Parser (Shell ())
opts sa = hsubparser
......@@ -393,6 +394,7 @@ clean StackArgs {..} = cleanLeftovers workingDirectory
main :: IO ()
main = do
hSetBuffering System.IO.stdout NoBuffering
argonixShare <- getEnv "ARGOTK_SHARE"
hwlocTC <- single $ inshell "hwloc-calc machine:0 -N PU" empty
let a = def { shareDir = ShareDir $ decodeString argonixShare
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment