blob: fc56b6c477b28730244dbf42946b9836b6ac706e (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import Control.Monad (forM_)
import Data.ByteString.Lazy (writeFile)
import Effectful (liftIO, runEff)
import Hsm.Cam (capturePng, runCam)
import Hsm.Log (Severity(Info, Trace), runLog)
import Prelude hiding (writeFile)
main :: IO ()
main =
runEff . runLog @"cam" Trace . runLog @"libcamera" Info . runCam . forM_ [0 .. 31] $ \index ->
capturePng >>= liftIO . writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png")
|
