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

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 ...@@ -155,11 +155,6 @@ runI (Instrumentation crProc (StdOutLog stdOut) (StdErrLog stdErr) t) = try
| otherwise | otherwise
-> yield b >> untilMatch msg sawTraceback -> yield b >> untilMatch msg sawTraceback
Nothing -> return Clean Nothing -> return Clean
{-withSinkFileNoBuffering-}
{-:: (MonadUnliftIO m, MonadIO n)-}
{-=> IO.FilePath-}
{--> (ConduitM ByteString o n () -> m a)-}
{--> m a-}
withSinkFileNoBuffering filepath inner = withSinkFileNoBuffering filepath inner =
withRunInIO $ \run -> IO.withBinaryFile filepath IO.WriteMode $ \h -> do withRunInIO $ \run -> IO.withBinaryFile filepath IO.WriteMode $ \h -> do
hSetBuffering h NoBuffering hSetBuffering h NoBuffering
......
...@@ -24,6 +24,7 @@ import Data.Text as T ...@@ -24,6 +24,7 @@ import Data.Text as T
( unpack ( unpack
, Text , Text
) )
import System.IO
opts :: StackArgs -> Parser (Shell ()) opts :: StackArgs -> Parser (Shell ())
opts sa = hsubparser opts sa = hsubparser
...@@ -393,6 +394,7 @@ clean StackArgs {..} = cleanLeftovers workingDirectory ...@@ -393,6 +394,7 @@ clean StackArgs {..} = cleanLeftovers workingDirectory
main :: IO () main :: IO ()
main = do main = do
hSetBuffering System.IO.stdout NoBuffering
argonixShare <- getEnv "ARGOTK_SHARE" argonixShare <- getEnv "ARGOTK_SHARE"
hwlocTC <- single $ inshell "hwloc-calc machine:0 -N PU" empty hwlocTC <- single $ inshell "hwloc-calc machine:0 -N PU" empty
let a = def { shareDir = ShareDir $ decodeString argonixShare 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