From a0f0f6985e67ddbce929bf3da6832c443db5293d Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Fri, 2 Jan 2026 00:48:59 +0000
Subject: Adds libcamera to WebRTC streaming service

---
 hsm-stream/Test/Stream.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 hsm-stream/Test/Stream.hs

(limited to 'hsm-stream/Test')

diff --git a/hsm-stream/Test/Stream.hs b/hsm-stream/Test/Stream.hs
new file mode 100644
index 0000000..010ebcc
--- /dev/null
+++ b/hsm-stream/Test/Stream.hs
@@ -0,0 +1,8 @@
+import Control.Concurrent (threadDelay)
+import Data.Function ((&))
+import Effectful (liftIO, runEff)
+import Hsm.Log (Severity (Info), runLog)
+import Hsm.Stream (runStream, startStream)
+
+main :: IO ()
+main = (startStream >> liftIO (threadDelay $ maxBound @Int)) & runStream True & runLog @"stream" Info & runEff
-- 
cgit v1.2.1