diff options
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 |