diff options
Diffstat (limited to 'src/main.hs')
-rw-r--r-- | src/main.hs | 17 |
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 |