Flameshot.Internal: copyToClipboard to Main.app

2 files changed, 4 insertions, 7 deletions

diff --git a/src/Flameshot/Internal.hs b/src/Flameshot/Internal.hs
index 44160bf..aba644c 100644
--- a/src/Flameshot/Internal.hs
+++ b/src/Flameshot/Internal.hs
@@ -9,7 +9,6 @@ import Blessings.Text
 import Control.Concurrent.Async (race)
 import Control.Concurrent.Extended
 import Control.Exception
-import Data.ByteString (ByteString)
 import qualified Data.Char as C
 import Data.Function (on)
 import Data.Maybe (fromMaybe)
@@ -107,12 +106,6 @@ showUnprintable =
     toEither p =
       map (\s -> if p (T.head s) then Right s else Left s)
       . T.groupBy ((==) `on` p)
-
-
-copyToClipboard :: String -> ByteString -> IO ()
-copyToClipboard mimetype input =
-    P.runAway "xclip" ["-selection", "clipboard", "-t", mimetype, "-i"]
-      Nothing Nothing input Nothing mempty
 
 logger :: (Blessings Text -> IO ()) -> Text -> P.Callbacks
 logger putLog name =
diff --git a/src/main.hs b/src/main.hs
index 042c8da..a08228b 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -105,6 +105,10 @@ app client = do
           return ()
 
     let
+      copyToClipboard mimetype input =
+        P.runAway "xclip" ["-selection", "clipboard", "-t", mimetype, "-i"]
+          Nothing Nothing input Nothing $
+          logger putLog "xclip"
       runDaemon =
         P.run "flameshot" [] Nothing Nothing "" Nothing $
           logger putLog "daemon" <>