diff options
Diffstat (limited to 'hsm-stream/Test/Stream.hs')
| -rw-r--r-- | hsm-stream/Test/Stream.hs | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/hsm-stream/Test/Stream.hs b/hsm-stream/Test/Stream.hs index 010ebcc..327d2e4 100644 --- a/hsm-stream/Test/Stream.hs +++ b/hsm-stream/Test/Stream.hs @@ -1,8 +1,15 @@ -import Control.Concurrent (threadDelay) import Data.Function ((&)) -import Effectful (liftIO, runEff) -import Hsm.Log (Severity (Info), runLog) +import Effectful (runEff) +import Effectful.Concurrent (runConcurrent, threadDelay) +import Effectful.Fail (runFailIO) +import Hsm.Log (Severity (Trace), runLogs) import Hsm.Stream (runStream, startStream) main :: IO () -main = (startStream >> liftIO (threadDelay $ maxBound @Int)) & runStream True & runLog @"stream" Info & runEff +main = + (startStream >> threadDelay (maxBound @Int)) + & runStream + & runLogs @'["gst", "stream"] Trace + & runConcurrent + & runFailIO + & runEff |