From 59346062401f7ce7ade53d1f45128cb0a76341b4 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Fri, 1 May 2020 09:43:07 +0200
Subject: Main.app: runDaemon uses logger
---
src/main.hs | 17 ++++++-----------
1 file changed, 6 insertions(+), 11 deletions(-)
diff --git a/src/main.hs b/src/main.hs
index f1016f2..042c8da 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -106,17 +106,12 @@ app client = do
let
runDaemon =
- P.run "flameshot" [] Nothing Nothing "" Nothing P.Callbacks
- { P.onOutLine = \_ s -> putLog $ "daemon stdout: " <> Plain s
- , P.onErrLine = \_ s -> putLog $ "daemon stderr: " <> red (Plain s)
- , P.onError = \_ _err -> do
- daemonStop
-
- , P.onExit = \_ _status -> do
- daemonStop
-
- , P.onStart = \_ -> return ()
- }
+ P.run "flameshot" [] Nothing Nothing "" Nothing $
+ logger putLog "daemon" <>
+ mempty
+ { P.onError = \_ _ -> daemonStop
+ , P.onExit = \_ _ -> daemonStop
+ }
runLogPrinter =
forever $ takeLog >>= T.hPutStrLn stderr . pp
--
cgit v1.2.3