Hello community, here is the log from the commit of package ghc-Clipboard for openSUSE:Factory checked in at 2017-07-27 11:11:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-Clipboard (Old) and /work/SRC/openSUSE:Factory/.ghc-Clipboard.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-Clipboard" Thu Jul 27 11:11:34 2017 rev:2 rq:511506 version:2.3.2.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-Clipboard/ghc-Clipboard.changes 2017-04-12 18:04:35.480582370 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-Clipboard.new/ghc-Clipboard.changes 2017-07-27 11:11:35.998931541 +0200 @@ -1,0 +2,5 @@ +Tue Jul 11 03:02:31 UTC 2017 - [email protected] + +- Update to version 2.3.2.0. + +------------------------------------------------------------------- Old: ---- Clipboard-2.3.1.0.tar.gz New: ---- Clipboard-2.3.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-Clipboard.spec ++++++ --- /var/tmp/diff_new_pack.Bst7K3/_old 2017-07-27 11:11:36.610845104 +0200 +++ /var/tmp/diff_new_pack.Bst7K3/_new 2017-07-27 11:11:36.614844539 +0200 @@ -18,7 +18,7 @@ %global pkg_name Clipboard Name: ghc-%{pkg_name} -Version: 2.3.1.0 +Version: 2.3.2.0 Release: 0 Summary: System clipboard interface License: BSD-3-Clause ++++++ Clipboard-2.3.1.0.tar.gz -> Clipboard-2.3.2.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Clipboard-2.3.1.0/Clipboard.cabal new/Clipboard-2.3.2.0/Clipboard.cabal --- old/Clipboard-2.3.1.0/Clipboard.cabal 2017-01-11 15:09:17.000000000 +0100 +++ new/Clipboard-2.3.2.0/Clipboard.cabal 2017-07-06 15:21:47.000000000 +0200 @@ -1,5 +1,5 @@ Name: Clipboard -Version: 2.3.1.0 +Version: 2.3.2.0 Author: Sævar Berg (Windows), Matthew Bekkema (X11), Daniel Díaz (Maintainer) Homepage: http://haskell.org/haskellwiki/Clipboard License: BSD3 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Clipboard-2.3.1.0/System/Clipboard/X11.hs new/Clipboard-2.3.2.0/System/Clipboard/X11.hs --- old/Clipboard-2.3.1.0/System/Clipboard/X11.hs 2017-01-09 14:23:13.000000000 +0100 +++ new/Clipboard-2.3.2.0/System/Clipboard/X11.hs 2017-07-06 15:19:03.000000000 +0200 @@ -1,5 +1,5 @@ -{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE RecordWildCards, CPP #-} module System.Clipboard.X11 ( getClipboardString @@ -13,7 +13,9 @@ import Codec.Binary.UTF8.String (decode, encode) import Control.Monad import Data.Maybe +#if !MIN_VERSION_X11(1,8,0) import Foreign (peekByteOff) +#endif import Foreign.C.Types (CChar, CUChar) import Foreign.Marshal.Array (withArrayLen) import System.Directory (setCurrentDirectory) @@ -68,10 +70,13 @@ sendSelectionNotify display ev_requestor ev_selection ev_target res ev_time go clipboards evPtr +#if MIN_VERSION_X11(1,8,0) + SelectionClear {..} -> go (filter (/= ev_selection) clipboards) evPtr +#else _ | ev_event_type ev == selectionClear -> do target <- peekByteOff evPtr 40 :: IO Atom go (filter (/= target) clipboards) evPtr - +#endif _ -> go clipboards evPtr handleOutput :: Display -> Window -> Atom -> Maybe String -> [CUChar] -> IO Atom diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Clipboard-2.3.1.0/System/Clipboard.hs new/Clipboard-2.3.2.0/System/Clipboard.hs --- old/Clipboard-2.3.1.0/System/Clipboard.hs 2015-11-21 04:27:06.000000000 +0100 +++ new/Clipboard-2.3.2.0/System/Clipboard.hs 2017-07-06 15:11:06.000000000 +0200 @@ -2,7 +2,6 @@ {-# LANGUAGE CPP #-} -- | System Clipboard Interface. It should work on both Windows and Unix (X11). --- The latter is still experimental. module System.Clipboard ( -- * Clipboard interface setClipboardString @@ -16,18 +15,18 @@ import qualified System.Clipboard.X11 as OS #endif --- | Writes a string to the clipboard. +-- | Write a string to the clipboard. setClipboardString :: String -> IO () setClipboardString = OS.setClipboardString --- | Gets the contents of the clipboard as a 'String'. --- Returns 'Nothing' if the clipboard doesn't contain /textual/ data. +-- | Get the content of the clipboard as a 'String'. +-- It returns 'Nothing' if the clipboard doesn't contain /textual/ data. getClipboardString :: IO (Maybe String) getClipboardString = OS.getClipboardString --- | Modifies the clipboard content. +-- | Modify the clipboard content. -- If the clipboard has /textual/ data, this function modifies its content --- and return 'True'. Otherwise, it does nothing and return 'False'. +-- and returns 'True'. Otherwise, it does nothing and returns 'False'. modifyClipboardString :: (String -> String) -> IO Bool modifyClipboardString f = do s <- getClipboardString
