diff options
author | tv <tv@krebsco.de> | 2020-05-01 10:07:17 +0200 |
---|---|---|
committer | tv <tv@krebsco.de> | 2020-05-01 10:07:17 +0200 |
commit | 63a96ce79d029bfba36660d7e258769f7d74a9ef (patch) | |
tree | e5a2f593020e921a9f31ad62e5ce2dbc6ec30c8a /src/Flameshot/Internal.hs | |
parent | 156f4774ca62e84d5a936597cec1b2faf1edee20 (diff) |
Flameshot.Internal: copyToClipboard to Main.app
Diffstat (limited to 'src/Flameshot/Internal.hs')
-rw-r--r-- | src/Flameshot/Internal.hs | 7 |
1 files changed, 0 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 = |