diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-09-12 01:43:15 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-12 01:43:15 +0000 |
| commit | e36a24df176cdbbd634738115f847e4fa46a0aea (patch) | |
| tree | 0e76c7651a0b3ec4d190bdf4afd4614630717733 /hsm-cam/Hsm | |
| parent | ac5a85abac1a47645713d3b7539fccb1b744dd85 (diff) | |
Adds `Logs` constraint combinatorreimplement_drive
Diffstat (limited to 'hsm-cam/Hsm')
| -rw-r--r-- | hsm-cam/Hsm/Cam.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hsm-cam/Hsm/Cam.hs b/hsm-cam/Hsm/Cam.hs index d1f9cd2..dfa7425 100644 --- a/hsm-cam/Hsm/Cam.hs +++ b/hsm-cam/Hsm/Cam.hs @@ -46,7 +46,7 @@ import Hsm.Cam.FFI , stopCameraManager ) import Hsm.Core.Bracket (bracketConst, bracketLiftIO_) -import Hsm.Log (Log, Severity (Attention, Info, Trace), getLevel, logMsg, makeLoggerIO) +import Hsm.Log (Log, Logs, Severity (Attention, Info, Trace), getLevel, logMsg, makeLoggerIO) import MMAP (mapShared, mkMmapFlags, mmap, munmap, protRead) import System.Directory (doesFileExist, removeFile) import System.Environment (setEnv) @@ -120,7 +120,7 @@ fromLibCameraSeverity = INFO -> Info _ -> Attention -runCam :: (IOE :> es, Log "cam" :> es, Log "libcamera" :> es) => Eff (Cam : es) a -> Eff es a +runCam :: (IOE :> es, Logs '["cam", "libcamera"] es) => Eff (Cam : es) a -> Eff es a runCam action = do requestCallbackMVar <- liftIO newEmptyMVar bracketConst loggerAlloc loggerDealloc |