Main.app: runDaemon uses logger

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