diff options
Diffstat (limited to 'hsm-stream/Test/Stream.hs')
| -rw-r--r-- | hsm-stream/Test/Stream.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/hsm-stream/Test/Stream.hs b/hsm-stream/Test/Stream.hs new file mode 100644 index 0000000..327d2e4 --- /dev/null +++ b/hsm-stream/Test/Stream.hs @@ -0,0 +1,15 @@ +import Data.Function ((&)) +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 >> threadDelay (maxBound @Int)) + & runStream + & runLogs @'["gst", "stream"] Trace + & runConcurrent + & runFailIO + & runEff |