Hclip 1.0.0.2 → 1.0.0.3

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

• Hclip.cabal +1/−1
• System/Hclip.hs +5/−5

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             1.0.0.2+version:             1.0.0.3  -- A short (one-line) description of the package. synopsis:            A small cross-platform library for reading and modifying the system clipboard.

@@ -51,7 +51,7 @@ data Platform = Linux               | Darwin               | Windows-                deriving (Show)+              deriving (Show)   -- | Error Types@@ -59,7 +59,7 @@                     | NoTextualData                     | MissingCommands [String]                     | MiscError String-                      deriving (Eq)+                    deriving (Eq)  instance Show ClipboardError where   show (UnsupportedOS os) = "Unsupported Operating System: " ++ os@@ -106,8 +106,8 @@ -- | MAC OS: use pbcopy and pbpaste     clipboard Darwin command = Right `fmap` withExternalCommand extCmd command   where extCmd = case command of-                   GetClipboard   -> "pbcopy"-                   SetClipboard _ -> "pbpaste"+                   GetClipboard   -> "pbpaste"+                   SetClipboard _ -> "pbcopy"   -- | Linux: use xsel or xclip@@ -150,7 +150,7 @@ withExternalCommand :: String -> Command -> IO String withExternalCommand prog command =    bracket (runInteractiveCommand prog)-          (\(inp, outp, stderr, pid) -> do mapM_ hClose [inp, outp, stderr] >> waitForProcess pid)+          (\(inp, outp, stderr, pid) -> mapM_ hClose [inp, outp, stderr] >> waitForProcess pid)           (\(inp, outp, _, _) -> action command (inp, outp))   where     action GetClipboard = hGetContents . stdout