diff options
Diffstat (limited to 'hsm-cam/Test/Cam.hs')
| -rw-r--r-- | hsm-cam/Test/Cam.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/hsm-cam/Test/Cam.hs b/hsm-cam/Test/Cam.hs deleted file mode 100644 index 94d3b73..0000000 --- a/hsm-cam/Test/Cam.hs +++ /dev/null @@ -1,17 +0,0 @@ -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 Prelude hiding (writeFile) - -main :: IO () -main = - forM_ [0 .. 31] (\index -> capturePng >>= writeFile ("/tmp/hsm-cam-test" <> show @Int index <> ".png")) - & runCam - & runLog @"cam" Trace - & runLog @"libcamera" Info - & runFileSystem - & runEff |