From 4efe903a671b288ac485f2d2a9c9aabf2eb7b199 Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Fri, 8 Aug 2025 22:31:35 +0200
Subject: Adds libcamera bindings

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

(limited to 'hsm-cam/Test/Cam.hs')

diff --git a/hsm-cam/Test/Cam.hs b/hsm-cam/Test/Cam.hs
new file mode 100644
index 0000000..4cf9e7f
--- /dev/null
+++ b/hsm-cam/Test/Cam.hs
@@ -0,0 +1,8 @@
+import Data.Function ((&))
+import Effectful (runEff)
+import Effectful.Resource (runResource)
+import Hsm.Cam (runCam, stillCapture)
+import Hsm.Log (Severity (Trace), runLog)
+
+main :: IO ()
+main = stillCapture & runCam & runLog @"cam" Trace & runResource & runEff
-- 
cgit v1.2.1