summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/Flameshot/Internal.hs7
-rw-r--r--src/main.hs4
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" <>