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