sandbox work

src/Argo/Utils.hs

@@ -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

src/argotk.hs

@@ -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