Correcting file output.

argotest/src/Argotest.hs

@@ -19,7 +19,8 @@ import System.Console.ANSI
 import System.Console.ANSI.Types (Color)
 import System.Posix.Signals
 import System.Process hiding (shell)
-import Data.Text hiding (empty)
+import Data.Text as Text hiding (empty)
+import Data.Text.IO as Text
 
 data StackArgs = StackArgs
   { dargs                :: [Text]        --"Daemon arguments. Properly quote this."
@@ -112,7 +113,21 @@ prepareDaemonShell dargs daemon_out daemon_err nrm_log = do
         False ->  die ("Clean config failed with exit code " <> repr n)
   printInfo $ format ("Running the daemon, main log at "%fp%", stdout at "%fp%", stderr at "%fp%"\n") nrm_log daemon_out daemon_err
   export "ARGO_NODEOS_CONFIG" (format fp confPath')
-  return $ sh $ view $ inprocWithErr "daemon" (dargs ++ ["--nrm_log", Data.Text.pack $ (encodeString nrm_log)]) empty
+  return $ twoWayPrint daemon_out daemon_err $ inprocWithErr "daemon"
+          (dargs ++ ["--nrm_log", Text.pack $ encodeString nrm_log])
+          empty
+    --twoWayPrint l
+    --case l of
+    --  Left out  -> output daemon_out $ return out
+    --  Right err -> output daemon_err $ return err
+
+twoWayPrint :: FilePath -> FilePath -> Shell (Either Line Line) -> IO ()
+twoWayPrint outPath errPath s = sh $ do
+    handleOut <- using (writeonly outPath)
+    handleErr <- using (writeonly errPath)
+    s >>= \case
+      Left out  -> liftIO $ Text.hPutStrLn handleOut (lineToText out)
+      Right err  -> liftIO $ Text.hPutStrLn handleOut (lineToText err)
 
 cmdShell :: FilePath -> Text -> FilePath -> FilePath -> Shell ()
 cmdShell manifest app cmd_out cmd_err =

default.nix

@@ -27,6 +27,10 @@ in rec
   };
 
   dev-test = pkgs.stdenv.mkDerivation rec {
+    shellHook = ''
+      source completions/bash/argotk.sh
+      echo "Installed bash completions."
+    '';
     name = "env";
     env = pkgs.buildEnv { name = name; paths = buildInputs; };
     buildInputs = [