From 62fce45039b0b8ab3d9d42b69a000fec00e1d35e Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Fri, 2 Jan 2026 05:53:10 +0000 Subject: Removes hsm-cam --- hsm-cam/Test/Cam.hs | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100644 hsm-cam/Test/Cam.hs (limited to 'hsm-cam/Test') diff --git a/hsm-cam/Test/Cam.hs b/hsm-cam/Test/Cam.hs deleted file mode 100644 index 94d3b73..0000000 --- a/hsm-cam/Test/Cam.hs +++ /dev/null @@ -1,17 +0,0 @@ -import Control.Monad (forM_) -import Data.Function ((&)) -import Effectful (runEff) -import Effectful.FileSystem (runFileSystem) -import Effectful.FileSystem.IO.ByteString.Lazy (writeFile) -import Hsm.Cam (capturePng, runCam) -import Hsm.Log (Severity (Info, Trace), runLog) -import Prelude hiding (writeFile) - -main :: IO () -main = - forM_ [0 .. 31] (\index -> capturePng >>= writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png")) - & runCam - & runLog @"cam" Trace - & runLog @"libcamera" Info - & runFileSystem - & runEff -- cgit v1.2.1