diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-08-25 02:35:34 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-08-25 02:35:34 +0000 |
| commit | 6f80d2d579d0be8773829ee277086af087e85862 (patch) | |
| tree | 93a52fed4d72f6076f800e7aeea1a3ca663c1e06 /hsm-cam | |
| parent | 6db2d77345b1d3da432a73d9eaf0be34165567c3 (diff) | |
Improves formatting of logs
Diffstat (limited to 'hsm-cam')
| -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 8300ae7..f894bc3 100644 --- a/hsm-cam/Hsm/Cam.hs +++ b/hsm-cam/Hsm/Cam.hs @@ -43,7 +43,7 @@ import Hsm.Cam.FFI , stopCamera , stopCameraManager ) -import Hsm.Log (Log, Severity(Info, Trace), getLoggerIO, logMsg) +import Hsm.Log (Log, Severity(Info, Trace), logMsg, makeLoggerIO) import MMAP (mapShared, mkMmapFlags, mmap, munmap, protRead) data Cam (a :: * -> *) (b :: *) @@ -84,7 +84,7 @@ runCam action = do where loggerAlloc = do logMsg Info "Registering FFI logger" - loggerIO <- getLoggerIO + loggerIO <- makeLoggerIO loggerFFI <- liftIO . makeLogger $ \severity message -> peekCString message >>= loggerIO (toEnum severity) liftIO $ registerLogger loggerFFI return loggerFFI |