blob: 4cf9e7fb79fb792c0b107a7fa54cfb80ebd5c4f6 (
plain)
1
2
3
4
5
6
7
8
|
import Data.Function ((&))
import Effectful (runEff)
import Effectful.Resource (runResource)
import Hsm.Cam (runCam, stillCapture)
import Hsm.Log (Severity (Trace), runLog)
main :: IO ()
main = stillCapture & runCam & runLog @"cam" Trace & runResource & runEff
|
