import Control.Monad (forM_)
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 =
  runEff . runFileSystem . runLog @"cam" Trace . runLog @"libcamera" Info . runCam . forM_ [0 .. 31] $ \index ->
    capturePng >>= writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png")