summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2022-10-07 11:38:01 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2022-10-07 18:27:33 +0200
commit23f206cf1fa9e4e9398aba47707024368c13ca60 (patch)
tree17906a3c679258f3a1da49c563a95a001051747c /src/Main.hs
parent2143eb381fc28e2d676a9c9a433426b1b2dbf737 (diff)
Process node record accessor
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 46fdaa6..b19796a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -203,6 +203,7 @@ spawnOn target pname killWith cmd = do
, procStdin = hin
, procOutput = pout
, procKillWith = killWith
+ , procNode = either (const undefined) id target
}
let readingLoop :: Handle -> (Text -> TestRun ()) -> TestRun ()