diff options
Diffstat (limited to 'hsm-cam/Test/Cam.hs')
| -rw-r--r-- | hsm-cam/Test/Cam.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/hsm-cam/Test/Cam.hs b/hsm-cam/Test/Cam.hs index fc56b6c..5c8daf5 100644 --- a/hsm-cam/Test/Cam.hs +++ b/hsm-cam/Test/Cam.hs @@ -1,11 +1,12 @@ import Control.Monad (forM_) -import Data.ByteString.Lazy (writeFile) -import Effectful (liftIO, runEff) +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 . runLog @"cam" Trace . runLog @"libcamera" Info . runCam . forM_ [0 .. 31] $ \index -> - capturePng >>= liftIO . writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png") + runEff . runFileSystem . runLog @"cam" Trace . runLog @"libcamera" Info . runCam . forM_ [0 .. 31] $ \index -> + capturePng >>= writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png") |