diff options
| -rw-r--r-- | src/Flameshot/Internal.hs | 7 | ||||
| -rw-r--r-- | src/main.hs | 4 |
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" <> |