Adds camera service

1 files changed, 13 insertions, 5 deletions

diff --git a/hsm-cam/Test/Cam.hs b/hsm-cam/Test/Cam.hs
index 4cf9e7f..9b06785 100644
--- a/hsm-cam/Test/Cam.hs
+++ b/hsm-cam/Test/Cam.hs
@@ -1,8 +1,16 @@
+import Control.Monad (forM_)
+import Data.ByteString.Lazy (writeFile)
 import Data.Function ((&))
-import Effectful (runEff)
-import Effectful.Resource (runResource)
-import Hsm.Cam (runCam, stillCapture)
-import Hsm.Log (Severity (Trace), runLog)
+import Effectful (liftIO, runEff)
+import Hsm.Cam (capturePng, runCam)
+import Hsm.Log (Severity(Info, Trace), logMsg, runLog)
+import Prelude hiding (writeFile)
 
 main :: IO ()
-main = stillCapture & runCam & runLog @"cam" Trace & runResource & runEff
+main = forM_ [0 .. 31] savePng & runCam & runLog @"cam" Trace & runEff
+  where
+    savePng index = do
+      logMsg Info $ "Saving image to file: " <> path
+      capturePng >>= liftIO . writeFile path
+      where
+        path = "/tmp/hsm-cam-test" <> show @Int index <> ".png"