diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2026-01-02 05:53:10 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2026-01-02 05:53:10 +0000 |
| commit | 62fce45039b0b8ab3d9d42b69a000fec00e1d35e (patch) | |
| tree | 84940c6d32c00e5a4b935e4da5b3cf95f1d1aca8 /hsm-cam/Test/Cam.hs | |
| parent | a0f0f6985e67ddbce929bf3da6832c443db5293d (diff) | |
Removes hsm-cam
Diffstat (limited to 'hsm-cam/Test/Cam.hs')
| -rw-r--r-- | hsm-cam/Test/Cam.hs | 17 |
1 files changed, 0 insertions, 17 deletions
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 |