summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/main.hs17
1 files 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