diff options
Diffstat (limited to 'hsm-cam/Test/Cam.hs')
| -rw-r--r-- | hsm-cam/Test/Cam.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/hsm-cam/Test/Cam.hs b/hsm-cam/Test/Cam.hs index 5c8daf5..94d3b73 100644 --- a/hsm-cam/Test/Cam.hs +++ b/hsm-cam/Test/Cam.hs @@ -1,12 +1,17 @@ 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 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") + forM_ [0 .. 31] (\index -> capturePng >>= writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png")) + & runCam + & runLog @"cam" Trace + & runLog @"libcamera" Info + & runFileSystem + & runEff |