diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-21 22:49:21 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-21 22:49:21 +0200 |
| commit | c558b300a3353edf7c88a2c363cb6bc7b7c1dcb7 (patch) | |
| tree | f8a21828219592a2a23289be74c7faaa95f8e3d0 /src/Process.hs | |
| parent | 442bc3df9692edde632e3a1d7217e861bf85fd81 (diff) | |
Diffstat (limited to 'src/Process.hs')
| -rw-r--r-- | src/Process.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Process.hs b/src/Process.hs index 57411d7..1389987 100644 --- a/src/Process.hs +++ b/src/Process.hs @@ -199,6 +199,9 @@ data IgnoreProcessOutput = IgnoreProcessOutput Process Int instance ObjectType TestRun IgnoreProcessOutput where type ConstructorArgs IgnoreProcessOutput = ( Process, Maybe Regex ) + textObjectType _ _ = "IgnoreProcessOutput" + textObjectValue _ (IgnoreProcessOutput _ _) = "<IgnoreProcessOutput>" + createObject oid ( process@Process {..}, regex ) = do liftIO $ atomically $ do flushProcessOutput process regex |