April 2016 - openSUSE Commits - openSUSE Mailing Lists

commit texmath for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package texmath for openSUSE:Factory checked in at 2016-04-30 23:30:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/texmath (Old) and /work/SRC/openSUSE:Factory/.texmath.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "texmath" Changes: -------- --- /work/SRC/openSUSE:Factory/texmath/texmath.changes 2016-04-03 23:07:40.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.texmath.new/texmath.changes 2016-04-30 23:30:40.000000000 +0200 @@ -1,0 +2,9 @@ +Tue Apr 26 09:04:55 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.8.6.2 +* Fixed array alignment issues +* Use 1 and 0 for _Hide attributes, rather than on and off. +* Fixed EUnderOver for omml output. Previously both the under and + the over part were being placed under + +------------------------------------------------------------------- Old: ---- texmath-0.8.6.1.tar.gz New: ---- texmath-0.8.6.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ texmath.spec ++++++ --- /var/tmp/diff_new_pack.8WQjBd/_old 2016-04-30 23:30:41.000000000 +0200 +++ /var/tmp/diff_new_pack.8WQjBd/_new 2016-04-30 23:30:41.000000000 +0200 @@ -19,7 +19,7 @@ %global pkg_name texmath Name: texmath -Version: 0.8.6.1 +Version: 0.8.6.2 Release: 0 Summary: Conversion of LaTeX math formulas to MathML or OMML License: GPL-2.0 ++++++ texmath-0.8.6.1.tar.gz -> texmath-0.8.6.2.tar.gz ++++++ ++++ 33033 lines of diff (skipped)

1 0

commit ghc-streaming-commons for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-streaming-commons for openSUSE:Factory checked in at 2016-04-30 23:30:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-streaming-commons (Old) and /work/SRC/openSUSE:Factory/.ghc-streaming-commons.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-streaming-commons" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-streaming-commons/ghc-streaming-commons.changes 2016-03-16 10:33:44.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-streaming-commons.new/ghc-streaming-commons.changes 2016-04-30 23:30:37.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 26 08:51:19 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.1.15.4 +* Fix benchmarks + +------------------------------------------------------------------- @@ -4 +10 @@ -- update to 0.1.15.1 +- update to 0.1.15.2 Old: ---- streaming-commons-0.1.15.2.tar.gz New: ---- streaming-commons-0.1.15.4.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-streaming-commons.spec ++++++ --- /var/tmp/diff_new_pack.AG6YSR/_old 2016-04-30 23:30:37.000000000 +0200 +++ /var/tmp/diff_new_pack.AG6YSR/_new 2016-04-30 23:30:37.000000000 +0200 @@ -21,7 +21,7 @@ %bcond_with tests Name: ghc-streaming-commons -Version: 0.1.15.2 +Version: 0.1.15.4 Release: 0 Summary: Common lower-level functions needed by various streaming data libraries License: MIT ++++++ streaming-commons-0.1.15.2.tar.gz -> streaming-commons-0.1.15.4.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/streaming-commons-0.1.15.2/ChangeLog.md new/streaming-commons-0.1.15.4/ChangeLog.md --- old/streaming-commons-0.1.15.2/ChangeLog.md 2016-03-03 10:57:56.000000000 +0100 +++ new/streaming-commons-0.1.15.4/ChangeLog.md 2016-04-21 19:23:04.000000000 +0200 @@ -1,3 +1,7 @@ +## 0.1.15.3 + +* Fix benchmarks + ## 0.1.15.2 * Document child process behavior in `waitForProcess` diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/streaming-commons-0.1.15.2/Data/Streaming/Network/Internal.hs new/streaming-commons-0.1.15.4/Data/Streaming/Network/Internal.hs --- old/streaming-commons-0.1.15.2/Data/Streaming/Network/Internal.hs 2016-03-03 10:57:56.000000000 +0100 +++ new/streaming-commons-0.1.15.4/Data/Streaming/Network/Internal.hs 2016-04-24 15:29:11.000000000 +0200 @@ -39,17 +39,22 @@ -- -- Note: The @IsString@ instance recognizes the following special values: -- --- * @*@ means @HostAny@ +-- * @*@ means @HostAny@ - "any IPv4 or IPv6 hostname" -- --- * @*4@ means @HostIPv4@ +-- * @*4@ means @HostIPv4@ - "any IPv4 or IPv6 hostname, IPv4 preferred" -- --- * @!4@ means @HostIPv4Only@ +-- * @!4@ means @HostIPv4Only@ - "any IPv4 hostname" -- --- * @*6@ means @HostIPv6@ +-- * @*6@ means @HostIPv6@@ - "any IPv4 or IPv6 hostname, IPv6 preferred" -- --- * @!6@ means @HostIPv6Only@ +-- * @!6@ means @HostIPv6Only@ - "any IPv6 hostname" -- --- Any other values is treated as a hostname. As an example, to bind to the +-- Note that the permissive @*@ values allow binding to an IPv4 or an +-- IPv6 hostname, which means you might be able to successfully bind +-- to a port more times than you expect (eg once on the IPv4 localhost +-- 127.0.0.1 and again on the IPv6 localhost 0:0:0:0:0:0:0:1). +-- +-- Any other value is treated as a hostname. As an example, to bind to the -- IPv4 local host only, use \"127.0.0.1\". data HostPreference = HostAny diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/streaming-commons-0.1.15.2/bench/count-chars.hs new/streaming-commons-0.1.15.4/bench/count-chars.hs --- old/streaming-commons-0.1.15.2/bench/count-chars.hs 2016-03-03 10:57:56.000000000 +0100 +++ new/streaming-commons-0.1.15.4/bench/count-chars.hs 2016-04-21 19:21:39.000000000 +0200 @@ -5,7 +5,7 @@ import qualified Data.ByteString as S import qualified Data.ByteString.Lazy as L import Data.ByteString.Lazy.Internal (ByteString (..)) -import Data.Text.StreamDecoding +import Data.Streaming.Text calcLen :: (S.ByteString -> DecodeResult) -> L.ByteString @@ -36,10 +36,10 @@ main :: IO () main = defaultMain $ map handleEncoding - [ ("UTF-8", TLE.encodeUtf8, TLE.decodeUtf8, streamUtf8) - , ("UTF-8 pure", TLE.encodeUtf8, TLE.decodeUtf8, streamUtf8Pure) - , ("UTF-16LE", TLE.encodeUtf16LE, TLE.decodeUtf16LE, streamUtf16LE) - , ("UTF-16BE", TLE.encodeUtf16BE, TLE.decodeUtf16BE, streamUtf16BE) - , ("UTF-32LE", TLE.encodeUtf32LE, TLE.decodeUtf32LE, streamUtf32LE) - , ("UTF-32BE", TLE.encodeUtf32BE, TLE.decodeUtf32BE, streamUtf32BE) + [ ("UTF-8", TLE.encodeUtf8, TLE.decodeUtf8, decodeUtf8) + , ("UTF-8 pure", TLE.encodeUtf8, TLE.decodeUtf8, decodeUtf8Pure) + , ("UTF-16LE", TLE.encodeUtf16LE, TLE.decodeUtf16LE, decodeUtf16LE) + , ("UTF-16BE", TLE.encodeUtf16BE, TLE.decodeUtf16BE, decodeUtf16BE) + , ("UTF-32LE", TLE.encodeUtf32LE, TLE.decodeUtf32LE, decodeUtf32LE) + , ("UTF-32BE", TLE.encodeUtf32BE, TLE.decodeUtf32BE, decodeUtf32BE) ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/streaming-commons-0.1.15.2/bench/decode-memory-usage.hs new/streaming-commons-0.1.15.4/bench/decode-memory-usage.hs --- old/streaming-commons-0.1.15.2/bench/decode-memory-usage.hs 2016-03-03 10:57:56.000000000 +0100 +++ new/streaming-commons-0.1.15.4/bench/decode-memory-usage.hs 2016-04-21 19:22:04.000000000 +0200 @@ -1,6 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} import Data.ByteString (ByteString) -import Data.Text.StreamDecoding +import Data.Streaming.Text import System.Environment (getArgs) input :: [ByteString] @@ -11,12 +11,12 @@ args <- getArgs let dec = case args of - ["16le"] -> streamUtf16LE - ["16be"] -> streamUtf16BE - ["32le"] -> streamUtf32LE - ["32be"] -> streamUtf32BE - ["8pure"] -> streamUtf8Pure - _ -> streamUtf8 + ["16le"] -> decodeUtf16LE + ["16be"] -> decodeUtf16BE + ["32le"] -> decodeUtf32LE + ["32be"] -> decodeUtf32BE + ["8pure"] -> decodeUtf8Pure + _ -> decodeUtf8 loop dec input diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/streaming-commons-0.1.15.2/streaming-commons.cabal new/streaming-commons-0.1.15.4/streaming-commons.cabal --- old/streaming-commons-0.1.15.2/streaming-commons.cabal 2016-03-03 10:57:56.000000000 +0100 +++ new/streaming-commons-0.1.15.4/streaming-commons.cabal 2016-04-24 15:29:18.000000000 +0200 @@ -1,5 +1,5 @@ name: streaming-commons -version: 0.1.15.2 +version: 0.1.15.4 synopsis: Common lower-level functions needed by various streaming data libraries description: Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes. homepage: https://github.com/fpco/streaming-commons @@ -124,6 +124,7 @@ , criterion , bytestring , text + , streaming-commons main-is: count-chars.hs ghc-options: -Wall -O2 @@ -133,6 +134,7 @@ build-depends: base , bytestring , text + , streaming-commons main-is: decode-memory-usage.hs ghc-options: -Wall -O2 -with-rtsopts=-s

1 0

commit ghc-shelly for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-shelly for openSUSE:Factory checked in at 2016-04-30 23:30:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-shelly (Old) and /work/SRC/openSUSE:Factory/.ghc-shelly.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-shelly" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-shelly/ghc-shelly.changes 2015-12-23 08:49:24.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-shelly.new/ghc-shelly.changes 2016-04-30 23:30:35.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 26 08:48:11 UTC 2016 - mimi.vx(a)gmail.com + +- update to 1.6.6 +* add prependToPath function + +------------------------------------------------------------------- Old: ---- shelly-1.6.5.tar.gz New: ---- shelly-1.6.6.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-shelly.spec ++++++ --- /var/tmp/diff_new_pack.GY3LMD/_old 2016-04-30 23:30:35.000000000 +0200 +++ /var/tmp/diff_new_pack.GY3LMD/_new 2016-04-30 23:30:35.000000000 +0200 @@ -21,7 +21,7 @@ %bcond_with tests Name: ghc-shelly -Version: 1.6.5 +Version: 1.6.6 Release: 0 Summary: Shell-like (systems) programming in Haskell License: BSD-3-Clause ++++++ shelly-1.6.5.tar.gz -> shelly-1.6.6.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shelly-1.6.5/ChangeLog.md new/shelly-1.6.6/ChangeLog.md --- old/shelly-1.6.5/ChangeLog.md 2015-12-10 18:43:35.000000000 +0100 +++ new/shelly-1.6.6/ChangeLog.md 2016-04-21 18:31:23.000000000 +0200 @@ -1,3 +1,7 @@ +# 1.6.6 + +* add prependToPath function + # 1.6.5 * expose MonadShControl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shelly-1.6.5/shelly.cabal new/shelly-1.6.6/shelly.cabal --- old/shelly-1.6.5/shelly.cabal 2015-12-10 18:17:15.000000000 +0100 +++ new/shelly-1.6.6/shelly.cabal 2016-04-21 18:30:42.000000000 +0200 @@ -1,6 +1,6 @@ Name: shelly -Version: 1.6.5 +Version: 1.6.6 Synopsis: shell-like (systems) programming in Haskell Description: Shelly provides convenient systems programming in Haskell, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shelly-1.6.5/src/Shelly/Lifted.hs new/shelly-1.6.6/src/Shelly/Lifted.hs --- old/shelly-1.6.5/src/Shelly/Lifted.hs 2015-12-08 00:20:05.000000000 +0100 +++ new/shelly-1.6.6/src/Shelly/Lifted.hs 2016-04-21 18:30:42.000000000 +0200 @@ -51,7 +51,7 @@ -- * Modifying and querying environment. - , setenv, get_env, get_env_text, get_env_all, appendToPath + , setenv, get_env, get_env_text, get_env_all, appendToPath, prependToPath -- * Environment directory , cd, chdir, chdir_p, pwd @@ -156,19 +156,19 @@ instance (Monoid w, MonadSh m) => MonadSh (WriterT w m) where liftSh m = WriterT $ do a <- liftSh m - return (a, mempty) + return (a, mempty :: w) instance (Monoid w, MonadSh m) => MonadSh (Strict.WriterT w m) where liftSh m = Strict.WriterT $ do a <- liftSh m - return (a, mempty) + return (a, mempty :: w) instance (Monoid w, MonadSh m) => MonadSh (RWS.RWST r w s m) where liftSh m = RWS.RWST $ \_ s -> do a <- liftSh m - return (a, s, mempty) + return (a, s, mempty :: w) instance (Monoid w, MonadSh m) => MonadSh (Strict.RWST r w s m) where liftSh m = Strict.RWST $ \_ s -> do a <- liftSh m - return (a, s, mempty) + return (a, s, mempty :: w) instance MonadSh m => S.ShellCmd (m Text) where cmdAll = (liftSh .) . S.run @@ -223,7 +223,7 @@ => MonadShControl (WriterT w m) where newtype ShM (WriterT w m) a = WriterTShM (ShM m (a, w)) liftShWith f = - WriterT $ liftM (\x -> (x, mempty)) $ liftShWith $ \runInSh -> f $ \k -> + WriterT $ liftM (\x -> (x, mempty :: w)) $ liftShWith $ \runInSh -> f $ \k -> liftM WriterTShM $ runInSh $ runWriterT k restoreSh (WriterTShM m) = WriterT . restoreSh $ m {-# INLINE liftShWith #-} @@ -233,7 +233,7 @@ => MonadShControl (Strict.WriterT w m) where newtype ShM (Strict.WriterT w m) a = StWriterTShM (ShM m (a, w)) liftShWith f = - Strict.WriterT $ liftM (\x -> (x, mempty)) $ liftShWith $ \runInSh -> f $ \k -> + Strict.WriterT $ liftM (\x -> (x, mempty :: w)) $ liftShWith $ \runInSh -> f $ \k -> liftM StWriterTShM $ runInSh $ Strict.runWriterT k restoreSh (StWriterTShM m) = Strict.WriterT . restoreSh $ m {-# INLINE liftShWith #-} @@ -280,7 +280,7 @@ => MonadShControl (RWS.RWST r w s m) where newtype ShM (RWS.RWST r w s m) a = RWSTShM (ShM m (a, s ,w)) liftShWith f = RWS.RWST $ \r s -> - liftM (\x -> (x,s,mempty)) $ liftShWith $ \runInSh -> f $ \k -> + liftM (\x -> (x,s,mempty :: w)) $ liftShWith $ \runInSh -> f $ \k -> liftM RWSTShM $ runInSh $ RWS.runRWST k r s restoreSh (RWSTShM m) = RWS.RWST . const . const . restoreSh $ m {-# INLINE liftShWith #-} @@ -290,7 +290,7 @@ => MonadShControl (Strict.RWST r w s m) where newtype ShM (Strict.RWST r w s m) a = StRWSTShM (ShM m (a, s, w)) liftShWith f = Strict.RWST $ \r s -> - liftM (\x -> (x,s,mempty)) $ liftShWith $ \runInSh -> f $ \k -> + liftM (\x -> (x,s,mempty :: w)) $ liftShWith $ \runInSh -> f $ \k -> liftM StRWSTShM $ runInSh $ Strict.runRWST k r s restoreSh (StRWSTShM m) = Strict.RWST . const . const . restoreSh $ m {-# INLINE liftShWith #-} @@ -459,6 +459,9 @@ appendToPath :: MonadSh m => FilePath -> m () appendToPath = liftSh . S.appendToPath +prependToPath :: MonadSh m => FilePath -> m () +prependToPath = liftSh . S.prependToPath + get_env_all :: MonadSh m => m [(String, String)] get_env_all = liftSh S.get_env_all diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shelly-1.6.5/src/Shelly/Pipe.hs new/shelly-1.6.6/src/Shelly/Pipe.hs --- old/shelly-1.6.5/src/Shelly/Pipe.hs 2015-09-10 19:37:45.000000000 +0200 +++ new/shelly-1.6.6/src/Shelly/Pipe.hs 2016-04-21 18:26:43.000000000 +0200 @@ -45,9 +45,9 @@ , (-|-), lastStderr, setStdin, lastExitCode , command, command_, command1, command1_ , sshPairs, sshPairs_ - + -- * Modifying and querying environment. - , setenv, get_env, get_env_text, get_env_def, appendToPath + , setenv, get_env, get_env_text, get_env_def, appendToPath, prependToPath -- * Environment directory , cd, chdir, pwd @@ -339,6 +339,10 @@ appendToPath :: FilePath -> Sh () appendToPath = sh1 S.appendToPath +-- | see 'S.prependToPath' +prependToPath :: FilePath -> Sh () +prependToPath = sh1 S.prependToPath + -- | see 'S.cd' cd :: FilePath -> Sh () cd = sh1 S.cd diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shelly-1.6.5/src/Shelly.hs new/shelly-1.6.6/src/Shelly.hs --- old/shelly-1.6.5/src/Shelly.hs 2015-12-01 15:04:18.000000000 +0100 +++ new/shelly-1.6.6/src/Shelly.hs 2016-04-21 18:29:13.000000000 +0200 @@ -45,7 +45,7 @@ , HandleInitializer, StdInit(..), initOutputHandles, initAllHandles -- * Modifying and querying environment. - , setenv, get_env, get_env_text, getenv, get_env_def, get_env_all, get_environment, appendToPath + , setenv, get_env, get_env_text, getenv, get_env_def, get_env_all, get_environment, appendToPath, prependToPath -- * Environment directory , cd, chdir, chdir_p, pwd @@ -750,6 +750,14 @@ pe <- get_env_text path_env setPath $ pe <> T.singleton searchPathSeparator <> tp +-- | prepend the filepath to the PATH env variable +-- similar to `appendToPath` but gives high priority to the filepath instead of low priority. +prependToPath :: FilePath -> Sh () +prependToPath = traceAbsPath ("prependToPath: " <>) >=> \filepath -> do + tp <- toTextWarn filepath + pe <- get_env_text path_env + setPath $ tp <> T.singleton searchPathSeparator <> pe + get_environment :: Sh [(String, String)] get_environment = gets sEnvironment {-# DEPRECATED get_environment "use get_env_all" #-}

1 0

commit ghc-shakespeare for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-shakespeare for openSUSE:Factory checked in at 2016-04-30 23:30:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-shakespeare (Old) and /work/SRC/openSUSE:Factory/.ghc-shakespeare.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-shakespeare" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-shakespeare/ghc-shakespeare.changes 2016-04-22 16:25:29.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-shakespeare.new/ghc-shakespeare.changes 2016-04-30 23:30:32.000000000 +0200 @@ -1,0 +2,5 @@ +Tue Apr 26 08:46:49 UTC 2016 - mimi.vx(a)gmail.com + +- update to 2.0.8.2 + +------------------------------------------------------------------- Old: ---- shakespeare-2.0.8.1.tar.gz New: ---- shakespeare-2.0.8.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-shakespeare.spec ++++++ --- /var/tmp/diff_new_pack.gU27AD/_old 2016-04-30 23:30:33.000000000 +0200 +++ /var/tmp/diff_new_pack.gU27AD/_new 2016-04-30 23:30:33.000000000 +0200 @@ -20,7 +20,7 @@ %bcond_with tests Name: ghc-shakespeare -Version: 2.0.8.1 +Version: 2.0.8.2 Release: 0 Summary: A toolkit for making compile-time interpolated templates Group: System/Libraries ++++++ shakespeare-2.0.8.1.tar.gz -> shakespeare-2.0.8.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shakespeare-2.0.8.1/Text/MkSizeType.hs new/shakespeare-2.0.8.2/Text/MkSizeType.hs --- old/shakespeare-2.0.8.1/Text/MkSizeType.hs 2016-04-15 11:13:43.000000000 +0200 +++ new/shakespeare-2.0.8.2/Text/MkSizeType.hs 2016-04-24 15:29:13.000000000 +0200 @@ -31,7 +31,7 @@ derives = map mkName ["Eq", "Ord"] showInstanceDec :: Name -> String -> Dec -showInstanceDec name unit' = InstanceD [] (instanceType "Show" name) [showDec] +showInstanceDec name unit' = instanceD [] (instanceType "Show" name) [showDec] where showSize = VarE $ mkName "showSize" x = mkName "x" unit = LitE $ StringL unit' @@ -40,17 +40,17 @@ showBody = NormalB $ AppE (AppE showSize $ VarE x) unit numInstanceDec :: Name -> Dec -numInstanceDec name = InstanceD [] (instanceType "Num" name) decs +numInstanceDec name = instanceD [] (instanceType "Num" name) decs where decs = map (binaryFunDec name) ["+", "*", "-"] ++ map (unariFunDec1 name) ["abs", "signum"] ++ [unariFunDec2 name "fromInteger"] fractionalInstanceDec :: Name -> Dec -fractionalInstanceDec name = InstanceD [] (instanceType "Fractional" name) decs +fractionalInstanceDec name = instanceD [] (instanceType "Fractional" name) decs where decs = [binaryFunDec name "/", unariFunDec2 name "fromRational"] toCssInstanceDec :: Name -> Dec -toCssInstanceDec name = InstanceD [] (instanceType "ToCss" name) [toCssDec] +toCssInstanceDec name = instanceD [] (instanceType "ToCss" name) [toCssDec] where toCssDec = FunD (mkName "toCss") [Clause [] showBody []] showBody = NormalB $ (AppE dot from) `AppE` ((AppE dot pack) `AppE` show') from = VarE 'fromLazyText @@ -92,3 +92,10 @@ notStrict :: Strict notStrict = NotStrict #endif + +instanceD :: Cxt -> Type -> [Dec] -> Dec +#if MIN_VERSION_template_haskell(2,11,0) +instanceD = InstanceD Nothing +#else +instanceD = InstanceD +#endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shakespeare-2.0.8.1/Text/Shakespeare/I18N.hs new/shakespeare-2.0.8.2/Text/Shakespeare/I18N.hs --- old/shakespeare-2.0.8.1/Text/Shakespeare/I18N.hs 2016-04-15 11:13:43.000000000 +0200 +++ new/shakespeare-2.0.8.2/Text/Shakespeare/I18N.hs 2016-04-24 15:29:13.000000000 +0200 @@ -177,7 +177,7 @@ #endif (map (toCon dt) sdef) []) :) else id) - [ InstanceD + [ instanceD [] (ConT ''RenderMessage `AppT` (ConT $ mkName master) `AppT` ConT mname) [ FunD (mkName "renderMessage") $ c1 ++ c2 ++ [c3] @@ -414,3 +414,10 @@ notStrict :: Strict notStrict = NotStrict #endif + +instanceD :: Cxt -> Type -> [Dec] -> Dec +#if MIN_VERSION_template_haskell(2,11,0) +instanceD = InstanceD Nothing +#else +instanceD = InstanceD +#endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/shakespeare-2.0.8.1/shakespeare.cabal new/shakespeare-2.0.8.2/shakespeare.cabal --- old/shakespeare-2.0.8.1/shakespeare.cabal 2016-04-15 11:13:43.000000000 +0200 +++ new/shakespeare-2.0.8.2/shakespeare.cabal 2016-04-24 15:29:42.000000000 +0200 @@ -1,5 +1,5 @@ name: shakespeare -version: 2.0.8.1 +version: 2.0.8.2 license: MIT license-file: LICENSE author: Michael Snoyman <michael(a)snoyman.com>

1 0

commit shake for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package shake for openSUSE:Factory checked in at 2016-04-30 23:30:29 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/shake (Old) and /work/SRC/openSUSE:Factory/.shake.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "shake" Changes: -------- --- /work/SRC/openSUSE:Factory/shake/shake.changes 2015-10-01 09:29:18.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.shake.new/shake.changes 2016-04-30 23:30:31.000000000 +0200 @@ -1,0 +2,58 @@ +Wed Apr 20 11:31:19 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.15.6 +* Require the primitive package +* make it an error to need a directory +* add orderOnlyAction, a general version of orderOnly +* explain that alwaysRerun has no immediate effect +* add --digest-not flag to select ChangeModtime +* export ShakeValue from the main module only +* improve the grammar in the profiling document +* explain what in getDirectoryFiles is tracked +* add getDirectoryFilesIO, an untracked version +* document getDirectoryFiles exception behaviour +* fix getDirectoryFiles error on pattern directory missing +* detect indirect recursion in build rules +* give better errors on recursive rules +* clarify the docs for putQuiet/putLoud +* make sure phony targets with \ work on Windows +* only require old-time with GHC 7.4 +* make Rules an instance of MonadIO +* add shakeExtra field to ShakeOptions for user data +* make --debug=file write out newlines +* make sure Shell and AutoDeps work together +* fix unicode output with putNormal +* add parallel execution via parallel/forP/par +* preserve quoting around cmd +* optimise the random pool, up to 20% faster +* add deriving Read instances for more types +* Add Development.Shake.Forward for forward-defined systems +* export :-> +* fix the docs for &%> +* make <enter> run the query profile viewer +* make profiling work with newer Chrome +* Add AutoDeps feature +* add FileStdin to specify the stdin comes from a file +* Make an empty Stdin different from no Stdin (inherit) in cmd +* add ** as a relative-only alternative to // in patterns +* change the semantics of removeFiles, no implicit deletes +* speed up getDirectoryFiles on patterns involving literals +* Work with stack test +* Add RemEnv cmd option +* Fix a small space leak on Linux +* Fix a space leak in profile summary information +* Properly handle *//* in file pattern (at least one directory) +* allow ninja rule names to have dots in them +* Properly handle /// in file pattern (a wildcard then /) +* Make sure Windows separators work in |%> FilePattern rules +* fix multifile rules when using --digest-and-input +* document the relationship between getEnv and lookupEnv +* improve the documentation for phony/alwaysRerun +* fix the documentation for normaliseEx +* add getProgress +* support MonadFix for Rules, allows recursive cache +* discount time spent waiting for a cache +* give better error messages if you hit GHC bug #10793 +* add a lock file to stop corrupting databases + +------------------------------------------------------------------- Old: ---- shake-0.15.5.tar.gz New: ---- shake-0.15.6.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ shake.spec ++++++ --- /var/tmp/diff_new_pack.yMf3Xe/_old 2016-04-30 23:30:32.000000000 +0200 +++ /var/tmp/diff_new_pack.yMf3Xe/_new 2016-04-30 23:30:32.000000000 +0200 @@ -19,7 +19,7 @@ %global pkg_name shake %bcond_with tests Name: shake -Version: 0.15.5 +Version: 0.15.6 Release: 0 Summary: Build system library, like Make, but more accurate dependencies Group: Development/Languages/Other @@ -41,7 +41,8 @@ BuildRequires: ghc-hashable-devel BuildRequires: ghc-js-flot-devel BuildRequires: ghc-js-jquery-devel -BuildRequires: ghc-old-time-devel +BuildRequires: ghc-time-devel +BuildRequires: ghc-primitive-devel BuildRequires: ghc-process-devel BuildRequires: ghc-random-devel BuildRequires: ghc-time-devel ++++++ shake-0.15.5.tar.gz -> shake-0.15.6.tar.gz ++++++ ++++ 9400 lines of diff (skipped)

1 0

commit ghc-psqueues for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-psqueues for openSUSE:Factory checked in at 2016-04-30 23:30:27 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-psqueues (Old) and /work/SRC/openSUSE:Factory/.ghc-psqueues.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-psqueues" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-psqueues/ghc-psqueues.changes 2016-02-11 12:37:32.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-psqueues.new/ghc-psqueues.changes 2016-04-30 23:30:28.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 26 08:39:18 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.2.2.1 +* Fix benchmark compilation with stack + +------------------------------------------------------------------- Old: ---- psqueues-0.2.2.0.tar.gz New: ---- psqueues-0.2.2.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-psqueues.spec ++++++ --- /var/tmp/diff_new_pack.UburaB/_old 2016-04-30 23:30:29.000000000 +0200 +++ /var/tmp/diff_new_pack.UburaB/_new 2016-04-30 23:30:29.000000000 +0200 @@ -20,7 +20,7 @@ %bcond_with tests Name: ghc-psqueues -Version: 0.2.2.0 +Version: 0.2.2.1 Release: 0 Summary: Pure priority search queues Group: System/Libraries ++++++ psqueues-0.2.2.0.tar.gz -> psqueues-0.2.2.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/CHANGELOG new/psqueues-0.2.2.1/CHANGELOG --- old/psqueues-0.2.2.0/CHANGELOG 2016-02-06 11:43:26.000000000 +0100 +++ new/psqueues-0.2.2.1/CHANGELOG 2016-04-22 12:16:55.000000000 +0200 @@ -1,3 +1,6 @@ +- 0.2.2.1 + * Fix benchmark compilation with stack + - 0.2.2.0 * Fix import of Traversable on GHC 7.8 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/benchmarks/BenchmarkTypes.hs new/psqueues-0.2.2.1/benchmarks/BenchmarkTypes.hs --- old/psqueues-0.2.2.0/benchmarks/BenchmarkTypes.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/psqueues-0.2.2.1/benchmarks/BenchmarkTypes.hs 2016-04-22 12:16:55.000000000 +0200 @@ -0,0 +1,28 @@ + +module BenchmarkTypes where + +import Criterion + +type BElem = (Int, Int, ()) + +data BenchmarkSet = BenchmarkSet + { bGroupName :: String + , bMinView :: Benchmarkable + , bLookup :: Benchmarkable + , bInsertEmpty :: Benchmarkable + , bInsertNew :: Benchmarkable + , bInsertDuplicates :: Benchmarkable + , bDelete :: Benchmarkable + } + +runBenchmark :: [BenchmarkSet] -> [Benchmark] +runBenchmark bset = + [ bgroup "minView" $ map (bench' bMinView) bset + , bgroup "lookup" $ map (bench' bLookup) bset + , bgroup "insertEmpty" $ map (bench' bInsertEmpty) bset + , bgroup "insertNew" $ map (bench' bInsertNew) bset + , bgroup "insertDuplicates" $ map (bench' bInsertDuplicates) bset + , bgroup "delete" $ map (bench' bDelete) bset + ] + where + bench' f x = bench (bGroupName x) (f x) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/benchmarks/Data/FingerTree/PSQueue/Benchmark.hs new/psqueues-0.2.2.1/benchmarks/Data/FingerTree/PSQueue/Benchmark.hs --- old/psqueues-0.2.2.0/benchmarks/Data/FingerTree/PSQueue/Benchmark.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/psqueues-0.2.2.1/benchmarks/Data/FingerTree/PSQueue/Benchmark.hs 2016-04-22 12:16:55.000000000 +0200 @@ -0,0 +1,61 @@ +{-# LANGUAGE BangPatterns #-} + +-- | This module contains benchmarks for the 'PSQueue' type from the +-- `fingertree-psqueue` package. +module Data.FingerTree.PSQueue.Benchmark + ( benchmark + ) where + +import Data.List (foldl') +import Data.FingerTree.PSQueue (Binding (..)) +import qualified Data.FingerTree.PSQueue as PSQueue +import Criterion.Main +import Prelude hiding (lookup) +import BenchmarkTypes +import Data.Maybe (fromMaybe) + +benchmark :: String -> [BElem] -> BenchmarkSet +benchmark name elems = BenchmarkSet + { bGroupName = name + , bMinView = whnf bench_minView initialPSQ + , bLookup = whnf (bench_lookup keys) initialPSQ + , bInsertEmpty = nf' (bench_insert firstElems) PSQueue.empty + , bInsertNew = nf' (bench_insert secondElems) initialPSQ + , bInsertDuplicates = nf' (bench_insert firstElems) initialPSQ + , bDelete = nf' (bench_delete firstKeys) initialPSQ + } + where + (firstElems, secondElems) = splitAt (numElems `div` 2) elems + numElems = length elems + keys = map (\(x, _, _) -> x) elems + firstKeys = map (\(x, _, _) -> x) firstElems + + initialPSQ :: PSQueue.PSQ Int Int + initialPSQ = PSQueue.fromList $ map toBinding firstElems + + toBinding :: BElem -> Binding Int Int + toBinding (k, p, _) = k :-> p + + -- Get the size of the resulting PSQs, since there's no NFData instance + nf' f x = whnf (PSQueue.size . f) x + +bench_lookup :: [Int] -> PSQueue.PSQ Int Int -> Int +bench_lookup xs m = foldl' (\n k -> fromMaybe n (PSQueue.lookup k m)) 0 xs + +bench_insert :: [BElem] -> PSQueue.PSQ Int Int -> PSQueue.PSQ Int Int +bench_insert xs m0 = foldl' (\m (k, p, _) -> fingerInsert k p m) m0 xs + where + fingerInsert + :: (Ord k, Ord v) => k -> v -> PSQueue.PSQ k v -> PSQueue.PSQ k v + fingerInsert k v m = PSQueue.alter (const $ Just v) k m + +bench_minView :: PSQueue.PSQ Int Int -> Int +bench_minView = go 0 + where + go !n t = case PSQueue.minView t of + Nothing -> n + Just ((k :-> x), t') -> go (n + k + x) t' + +-- Empty a queue by sequentially removing all elements +bench_delete :: [Int] -> PSQueue.PSQ Int Int -> PSQueue.PSQ Int Int +bench_delete keys t0 = foldl' (\t k -> PSQueue.delete k t) t0 keys diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/benchmarks/Data/HashPSQ/Benchmark.hs new/psqueues-0.2.2.1/benchmarks/Data/HashPSQ/Benchmark.hs --- old/psqueues-0.2.2.0/benchmarks/Data/HashPSQ/Benchmark.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/psqueues-0.2.2.1/benchmarks/Data/HashPSQ/Benchmark.hs 2016-04-22 12:16:55.000000000 +0200 @@ -0,0 +1,53 @@ +{-# LANGUAGE BangPatterns #-} + +module Data.HashPSQ.Benchmark + ( benchmark + ) where + +import Data.List (foldl') +import qualified Data.HashPSQ as HashPSQ +import Criterion.Main +import Prelude hiding (lookup) +import BenchmarkTypes + +benchmark :: String -> [BElem] -> BenchmarkSet +benchmark name elems = BenchmarkSet + { bGroupName = name + , bMinView = whnf bench_minView initialPSQ + , bLookup = whnf (bench_lookup keys) initialPSQ + , bInsertEmpty = nf (bench_insert firstElems) HashPSQ.empty + , bInsertNew = nf (bench_insert secondElems) initialPSQ + , bInsertDuplicates = nf (bench_insert firstElems) initialPSQ + , bDelete = nf (bench_delete firstKeys) initialPSQ + } + where + (firstElems, secondElems) = splitAt (numElems `div` 2) elems + numElems = length elems + keys = map (\(x, _, _) -> x) elems + firstKeys = map (\(x, _, _) -> x) firstElems + + initialPSQ = HashPSQ.fromList firstElems :: HashPSQ.HashPSQ Int Int () + + +-- Get the sum of all priorities by getting all elements using 'lookup' +bench_lookup :: [Int] -> HashPSQ.HashPSQ Int Int () -> Int +bench_lookup xs m = foldl' (\n k -> maybe n fst (HashPSQ.lookup k m)) 0 xs + +-- Insert a list of elements one-by-one into a PSQ +bench_insert + :: [BElem] -> HashPSQ.HashPSQ Int Int () -> HashPSQ.HashPSQ Int Int () +bench_insert xs m0 = foldl' (\m (k, p, v) -> HashPSQ.insert k p v m) m0 xs + +-- Get the sum of all priorities by sequentially popping all elements using +-- 'minView' +bench_minView :: HashPSQ.HashPSQ Int Int () -> Int +bench_minView = go 0 + where + go !n t = case HashPSQ.minView t of + Nothing -> n + Just (k, x, _, t') -> go (n + k + x) t' + +-- Empty a queue by sequentially removing all elements +bench_delete + :: [Int] -> HashPSQ.HashPSQ Int Int () -> HashPSQ.HashPSQ Int Int () +bench_delete keys t0 = foldl' (\t k -> HashPSQ.delete k t) t0 keys diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/benchmarks/Data/IntPSQ/Benchmark.hs new/psqueues-0.2.2.1/benchmarks/Data/IntPSQ/Benchmark.hs --- old/psqueues-0.2.2.0/benchmarks/Data/IntPSQ/Benchmark.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/psqueues-0.2.2.1/benchmarks/Data/IntPSQ/Benchmark.hs 2016-04-22 12:16:55.000000000 +0200 @@ -0,0 +1,50 @@ +{-# LANGUAGE BangPatterns #-} +module Data.IntPSQ.Benchmark + ( benchmark + ) where + +import Data.List (foldl') +import qualified Data.IntPSQ as IntPSQ +import Criterion.Main +import Prelude hiding (lookup) +import BenchmarkTypes + +benchmark :: String -> [BElem] -> BenchmarkSet +benchmark name elems = BenchmarkSet + { bGroupName = name + , bMinView = whnf bench_minView initialPSQ + , bLookup = whnf (bench_lookup keys) initialPSQ + , bInsertEmpty = nf (bench_insert firstElems) IntPSQ.empty + , bInsertNew = nf (bench_insert secondElems) initialPSQ + , bInsertDuplicates = nf (bench_insert firstElems) initialPSQ + , bDelete = nf (bench_delete firstKeys) initialPSQ + } + where + (firstElems, secondElems) = splitAt (numElems `div` 2) elems + numElems = length elems + keys = map (\(x, _, _) -> x) elems + firstKeys = map (\(x, _, _) -> x) firstElems + + initialPSQ = IntPSQ.fromList firstElems :: IntPSQ.IntPSQ Int () + +-- Get the sum of all priorities by getting all elements using 'lookup' +bench_lookup :: [Int] -> IntPSQ.IntPSQ Int () -> Int +bench_lookup xs m = foldl' (\n k -> maybe n fst (IntPSQ.lookup k m)) 0 xs + +-- Insert a list of elements one-by-one into a PSQ +bench_insert + :: [(Int, Int, ())] -> IntPSQ.IntPSQ Int () -> IntPSQ.IntPSQ Int () +bench_insert xs m0 = foldl' (\m (k, p, v) -> IntPSQ.insert k p v m) m0 xs + +-- Get the sum of all priorities by sequentially popping all elements using +-- 'minView' +bench_minView :: IntPSQ.IntPSQ Int () -> Int +bench_minView = go 0 + where + go !n t = case IntPSQ.minView t of + Nothing -> n + Just (k, p, _, t') -> go (n + k + p) t' + +-- Empty a queue by sequentially removing all elements +bench_delete :: [Int] -> IntPSQ.IntPSQ Int () -> IntPSQ.IntPSQ Int () +bench_delete keys t0 = foldl' (\t k -> IntPSQ.delete k t) t0 keys diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/benchmarks/Data/OrdPSQ/Benchmark.hs new/psqueues-0.2.2.1/benchmarks/Data/OrdPSQ/Benchmark.hs --- old/psqueues-0.2.2.0/benchmarks/Data/OrdPSQ/Benchmark.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/psqueues-0.2.2.1/benchmarks/Data/OrdPSQ/Benchmark.hs 2016-04-22 12:16:55.000000000 +0200 @@ -0,0 +1,49 @@ +{-# LANGUAGE BangPatterns #-} +module Data.OrdPSQ.Benchmark + ( benchmark + ) where + +import Data.List (foldl') +import qualified Data.OrdPSQ as OrdPSQ +import Criterion.Main +import Prelude hiding (lookup) +import BenchmarkTypes + +benchmark :: String -> [BElem] -> BenchmarkSet +benchmark name elems = BenchmarkSet + { bGroupName = name + , bMinView = whnf bench_minView initialPSQ + , bLookup = whnf (bench_lookup keys) initialPSQ + , bInsertEmpty = nf (bench_insert firstElems) OrdPSQ.empty + , bInsertNew = nf (bench_insert secondElems) initialPSQ + , bInsertDuplicates = nf (bench_insert firstElems) initialPSQ + , bDelete = nf (bench_delete firstKeys) initialPSQ + } + where + (firstElems, secondElems) = splitAt (numElems `div` 2) elems + numElems = length elems + keys = map (\(x, _, _) -> x) elems + firstKeys = map (\(x, _, _) -> x) firstElems + + initialPSQ = OrdPSQ.fromList firstElems :: OrdPSQ.OrdPSQ Int Int () + +-- Get the sum of all priorities by getting all elements using 'lookup' +bench_lookup :: [Int] -> OrdPSQ.OrdPSQ Int Int () -> Int +bench_lookup xs m = foldl' (\n k -> maybe n fst (OrdPSQ.lookup k m)) 0 xs + +-- Insert a list of elements one-by-one into a PSQ +bench_insert :: [BElem] -> OrdPSQ.OrdPSQ Int Int () -> OrdPSQ.OrdPSQ Int Int () +bench_insert xs m0 = foldl' (\m (k, p, v) -> OrdPSQ.insert k p v m) m0 xs + +-- Get the sum of all priorities by sequentially popping all elements using +-- 'minView' +bench_minView :: OrdPSQ.OrdPSQ Int Int () -> Int +bench_minView = go 0 + where + go !n t = case OrdPSQ.minView t of + Nothing -> n + Just (k, x, _, t') -> go (n + k + x) t' + +-- Empty a queue by sequentially removing all elements +bench_delete :: [Int] -> OrdPSQ.OrdPSQ Int Int () -> OrdPSQ.OrdPSQ Int Int () +bench_delete keys t0 = foldl' (\t k -> OrdPSQ.delete k t) t0 keys diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/benchmarks/Data/PSQueue/Benchmark.hs new/psqueues-0.2.2.1/benchmarks/Data/PSQueue/Benchmark.hs --- old/psqueues-0.2.2.0/benchmarks/Data/PSQueue/Benchmark.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/psqueues-0.2.2.1/benchmarks/Data/PSQueue/Benchmark.hs 2016-04-22 12:16:55.000000000 +0200 @@ -0,0 +1,60 @@ +{-# LANGUAGE BangPatterns #-} + +-- | This module provides benchmarks for the 'PSQueue' type from the PSQueue +-- package. +module Data.PSQueue.Benchmark + ( benchmark + ) where + +import Data.List (foldl') +import qualified Data.PSQueue as PSQueue +import Criterion.Main +import Prelude hiding (lookup) +import BenchmarkTypes +import Data.Maybe (fromMaybe) + +benchmark :: String -> [BElem] -> BenchmarkSet +benchmark name elems = BenchmarkSet + { bGroupName = name + , bMinView = whnf bench_minView initialPSQ + , bLookup = whnf (bench_lookup keys) initialPSQ + , bInsertEmpty = nf' (bench_insert firstElems) PSQueue.empty + , bInsertNew = nf' (bench_insert secondElems) initialPSQ + , bInsertDuplicates = nf' (bench_insert firstElems) initialPSQ + , bDelete = nf' (bench_delete firstKeys) initialPSQ + } + where + (firstElems, secondElems) = splitAt (numElems `div` 2) elems + numElems = length elems + keys = map (\(x, _, _) -> x) elems + firstKeys = map (\(x, _, _) -> x) firstElems + + initialPSQ + = PSQueue.fromList $ map toBinding firstElems :: PSQueue.PSQ Int Int + + toBinding :: BElem -> PSQueue.Binding Int Int + toBinding (k, p, _) = k PSQueue.:-> p + + -- Get the size of the resulting PSQ, since there's no NFData instance. + nf' f x = whnf (PSQueue.size . f) x + +-- Get the sum of all priorities by getting all elements using 'lookup' +bench_lookup :: [Int] -> PSQueue.PSQ Int Int -> Int +bench_lookup xs m = foldl' (\n k -> fromMaybe n (PSQueue.lookup k m)) 0 xs + +-- Insert a list of elements one-by-one into a PSQ +bench_insert :: [BElem] -> PSQueue.PSQ Int Int -> PSQueue.PSQ Int Int +bench_insert xs m0 = foldl' (\m (k, p, _) -> PSQueue.insert k p m) m0 xs + +-- Get the sum of all priorities by sequentially popping all elements using +-- 'minView' +bench_minView :: PSQueue.PSQ Int Int -> Int +bench_minView = go 0 + where + go !n t = case PSQueue.minView t of + Nothing -> n + Just ((k PSQueue.:-> x), t') -> go (n + k + x) t' + +-- Empty a queue by sequentially removing all elements +bench_delete :: [Int] -> PSQueue.PSQ Int Int -> PSQueue.PSQ Int Int +bench_delete keys t0 = foldl' (\t k -> PSQueue.delete k t) t0 keys diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/psqueues-0.2.2.0/psqueues.cabal new/psqueues-0.2.2.1/psqueues.cabal --- old/psqueues-0.2.2.0/psqueues.cabal 2016-02-06 11:43:26.000000000 +0100 +++ new/psqueues-0.2.2.1/psqueues.cabal 2016-04-22 12:16:55.000000000 +0200 @@ -1,5 +1,5 @@ Name: psqueues -Version: 0.2.2.0 +Version: 0.2.2.1 License: BSD3 License-file: LICENSE Maintainer: Jasper Van der Jeugt <jaspervdj(a)gmail.com> @@ -85,6 +85,15 @@ Type: exitcode-stdio-1.0 Hs-source-dirs: src benchmarks Main-is: Main.hs + + Other-modules: + BenchmarkTypes + Data.FingerTree.PSQueue.Benchmark + Data.HashPSQ.Benchmark + Data.IntPSQ.Benchmark + Data.OrdPSQ.Benchmark + Data.PSQueue.Benchmark + Ghc-options: -Wall Build-depends:

1 0

commit ghc-MonadRandom for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-MonadRandom for openSUSE:Factory checked in at 2016-04-30 23:30:24 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-MonadRandom (Old) and /work/SRC/openSUSE:Factory/.ghc-MonadRandom.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-MonadRandom" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-MonadRandom/ghc-MonadRandom.changes 2016-01-28 17:24:54.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-MonadRandom.new/ghc-MonadRandom.changes 2016-04-30 23:30:26.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 26 08:33:51 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.4.2.3 +* Mark Control.Monad.Random as Trustworthy. + +------------------------------------------------------------------- Old: ---- MonadRandom-0.4.2.2.tar.gz New: ---- MonadRandom-0.4.2.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-MonadRandom.spec ++++++ --- /var/tmp/diff_new_pack.jThAOw/_old 2016-04-30 23:30:26.000000000 +0200 +++ /var/tmp/diff_new_pack.jThAOw/_new 2016-04-30 23:30:26.000000000 +0200 @@ -19,7 +19,7 @@ %global pkg_name MonadRandom Name: ghc-MonadRandom -Version: 0.4.2.2 +Version: 0.4.2.3 Release: 0 Summary: Random-number generation monad License: MIT ++++++ MonadRandom-0.4.2.2.tar.gz -> MonadRandom-0.4.2.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MonadRandom-0.4.2.2/CHANGES.markdown new/MonadRandom-0.4.2.3/CHANGES.markdown --- old/MonadRandom-0.4.2.2/CHANGES.markdown 2016-01-18 18:09:08.000000000 +0100 +++ new/MonadRandom-0.4.2.3/CHANGES.markdown 2016-04-22 04:25:42.000000000 +0200 @@ -1,3 +1,8 @@ +0.4.2.3 (21 April 2016) +----------------------- + + - Mark `Control.Monad.Random` as `Trustworthy`. + 0.4.2.2 (18 January 2016) ------------------------- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MonadRandom-0.4.2.2/Control/Monad/Random.hs new/MonadRandom-0.4.2.3/Control/Monad/Random.hs --- old/MonadRandom-0.4.2.2/Control/Monad/Random.hs 2016-01-18 18:09:08.000000000 +0100 +++ new/MonadRandom-0.4.2.3/Control/Monad/Random.hs 2016-04-22 04:25:42.000000000 +0200 @@ -2,6 +2,7 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE Trustworthy #-} {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS -fno-warn-orphans #-} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MonadRandom-0.4.2.2/MonadRandom.cabal new/MonadRandom-0.4.2.3/MonadRandom.cabal --- old/MonadRandom-0.4.2.2/MonadRandom.cabal 2016-01-18 18:09:08.000000000 +0100 +++ new/MonadRandom-0.4.2.3/MonadRandom.cabal 2016-04-22 04:25:42.000000000 +0200 @@ -1,5 +1,5 @@ name: MonadRandom -version: 0.4.2.2 +version: 0.4.2.3 synopsis: Random-number generation monad. description: Support for computations which consume random values. license: OtherLicense

1 0

commit ghc-mime-types for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-mime-types for openSUSE:Factory checked in at 2016-04-30 23:30:22 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-mime-types (Old) and /work/SRC/openSUSE:Factory/.ghc-mime-types.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-mime-types" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-mime-types/ghc-mime-types.changes 2015-05-22 09:51:32.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-mime-types.new/ghc-mime-types.changes 2016-04-30 23:30:23.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 26 08:31:40 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.1.0.7 +* Add support for .less files + +------------------------------------------------------------------- Old: ---- mime-types-0.1.0.6.tar.gz New: ---- mime-types-0.1.0.7.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-mime-types.spec ++++++ --- /var/tmp/diff_new_pack.ukBGpe/_old 2016-04-30 23:30:24.000000000 +0200 +++ /var/tmp/diff_new_pack.ukBGpe/_new 2016-04-30 23:30:24.000000000 +0200 @@ -19,7 +19,7 @@ %global pkg_name mime-types Name: ghc-mime-types -Version: 0.1.0.6 +Version: 0.1.0.7 Release: 0 Summary: Basic mime-type handling types and functions License: MIT ++++++ mime-types-0.1.0.6.tar.gz -> mime-types-0.1.0.7.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-types-0.1.0.6/ChangeLog.md new/mime-types-0.1.0.7/ChangeLog.md --- old/mime-types-0.1.0.6/ChangeLog.md 2015-03-18 17:56:01.000000000 +0100 +++ new/mime-types-0.1.0.7/ChangeLog.md 2016-04-21 13:27:45.000000000 +0200 @@ -1,3 +1,7 @@ +## 0.1.0.7 + +* Add support for .less files [#534](https://github.com/yesodweb/wai/pull/534) + ## 0.1.0.6 * Add woff2 mime type [#350](https://github.com/yesodweb/wai/pull/350) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-types-0.1.0.6/Network/Mime.hs new/mime-types-0.1.0.7/Network/Mime.hs --- old/mime-types-0.1.0.6/Network/Mime.hs 2015-03-18 17:56:01.000000000 +0100 +++ new/mime-types-0.1.0.7/Network/Mime.hs 2016-04-21 13:27:18.000000000 +0200 @@ -468,6 +468,11 @@ , ("lbd", "application/vnd.llamagraphics.life-balance.desktop") , ("lbe", "application/vnd.llamagraphics.life-balance.exchange+xml") , ("les", "application/vnd.hhe.lesson-player") + + -- Added after deliberation in PR (https://github.com/yesodweb/wai/pull/534) + -- Accepted mainly because of StackOverflow (http://stackoverflow.com/questions/7319555/how-to-add-less-to-iis-7-0) + , ("less", "text/css") + , ("lha", "application/x-lzh-compressed") , ("link66", "application/vnd.route66.link66+xml") , ("list", "text/plain") diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mime-types-0.1.0.6/mime-types.cabal new/mime-types-0.1.0.7/mime-types.cabal --- old/mime-types-0.1.0.6/mime-types.cabal 2015-03-18 17:56:01.000000000 +0100 +++ new/mime-types-0.1.0.7/mime-types.cabal 2016-04-21 13:27:46.000000000 +0200 @@ -1,5 +1,5 @@ name: mime-types -version: 0.1.0.6 +version: 0.1.0.7 synopsis: Basic mime-type handling types and functions description: API docs and the README are available at <http://www.stackage.org/package/mime-types>. homepage: https://github.com/yesodweb/wai

1 0

commit ghc for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc for openSUSE:Factory checked in at 2016-04-30 23:30:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc (Old) and /work/SRC/openSUSE:Factory/.ghc.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc/ghc.changes 2016-03-16 10:33:53.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc.new/ghc.changes 2016-04-30 23:30:22.000000000 +0200 @@ -1,0 +2,9 @@ +Tue Apr 19 12:50:38 UTC 2016 - mimi.vx(a)gmail.com + +- update haskeline to 0.7.2.3 +- refresh u_haskeline_update.patch +* Fix hsc2hs-related warning on ghc-8 +* Fix the behavior of ctrl-W in the emacs bindings +* Point to github instead of trac + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc.spec ++++++ --- /var/tmp/diff_new_pack.2gxAiC/_old 2016-04-30 23:30:23.000000000 +0200 +++ /var/tmp/diff_new_pack.2gxAiC/_new 2016-04-30 23:30:23.000000000 +0200 @@ -80,7 +80,7 @@ Patch21: u_terminfo_0402.patch # PATCH-FIX-UPSTREAM u_Cabal_update.patch mimi.vx(a)gmail.com -- update Cabal to 1.22.6.0 Patch22: u_Cabal_update.patch -# PATCH-FIX-UPSTREAM u_haskeline_update.patch mimi.vx(a)gmail.com -- update haskeline to 0.7.2.2 +# PATCH-FIX-UPSTREAM u_haskeline_update.patch mimi.vx(a)gmail.com -- update haskeline to 0.7.2.3 Patch23: u_haskeline_update.patch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -139,7 +139,7 @@ %define ghc_pkg_obsoletes ghc-bin-package-db-devel < 0.0.0.0-%{release} %ghc_lib_subpackage -x ghc %{ghc_version_override} %undefine ghc_pkg_obsoletes -%ghc_lib_subpackage haskeline 0.7.2.2 +%ghc_lib_subpackage haskeline 0.7.2.3 %ghc_lib_subpackage hoopl 3.10.0.2 %ghc_lib_subpackage hpc 0.6.0.2 %ghc_lib_subpackage pretty 1.1.2.0 ++++++ u_haskeline_update.patch ++++++ ++++ 1227 lines (skipped) ++++ between /work/SRC/openSUSE:Factory/ghc/u_haskeline_update.patch ++++ and /work/SRC/openSUSE:Factory/.ghc.new/u_haskeline_update.patch

1 0

commit ghc-file-embed for openSUSE:Factory
by root＠hilbert.suse.de 30 Apr '16

30 Apr '16

Hello community, here is the log from the commit of package ghc-file-embed for openSUSE:Factory checked in at 2016-04-30 23:30:18 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-file-embed (Old) and /work/SRC/openSUSE:Factory/.ghc-file-embed.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-file-embed" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-file-embed/ghc-file-embed.changes 2016-01-28 17:25:30.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-file-embed.new/ghc-file-embed.changes 2016-04-30 23:30:19.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Apr 26 08:25:43 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.0.10 +* makeRelativeToProject + +------------------------------------------------------------------- Old: ---- file-embed-0.0.9.1.tar.gz New: ---- file-embed-0.0.10.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-file-embed.spec ++++++ --- /var/tmp/diff_new_pack.V9LzF2/_old 2016-04-30 23:30:20.000000000 +0200 +++ /var/tmp/diff_new_pack.V9LzF2/_new 2016-04-30 23:30:20.000000000 +0200 @@ -21,7 +21,7 @@ %bcond_without tests Name: ghc-file-embed -Version: 0.0.9.1 +Version: 0.0.10 Release: 0 Summary: Use Template Haskell to embed file contents directly License: BSD-2-Clause ++++++ file-embed-0.0.9.1.tar.gz -> file-embed-0.0.10.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/file-embed-0.0.9.1/ChangeLog.md new/file-embed-0.0.10/ChangeLog.md --- old/file-embed-0.0.9.1/ChangeLog.md 2016-01-20 08:30:52.000000000 +0100 +++ new/file-embed-0.0.10/ChangeLog.md 2016-04-21 17:33:11.000000000 +0200 @@ -1,3 +1,7 @@ +## 0.0.10 + +* `makeRelativeToProject` + ## 0.0.9 * embedStringFile [#14](https://github.com/snoyberg/file-embed/pull/14) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/file-embed-0.0.9.1/Data/FileEmbed.hs new/file-embed-0.0.10/Data/FileEmbed.hs --- old/file-embed-0.0.9.1/Data/FileEmbed.hs 2016-01-20 08:30:52.000000000 +0100 +++ new/file-embed-0.0.10/Data/FileEmbed.hs 2016-04-21 17:33:11.000000000 +0200 @@ -35,6 +35,8 @@ , injectFile , injectWith , injectFileWith + -- * Relative path manipulation + , makeRelativeToProject -- * Internal , stringToBs , bsToExp @@ -50,12 +52,13 @@ #endif , Q , runIO + , qLocation, loc_filename #if MIN_VERSION_template_haskell(2,7,0) , Quasi(qAddDependentFile) #endif ) import System.Directory (doesDirectoryExist, doesFileExist, - getDirectoryContents) + getDirectoryContents, canonicalizePath) import Control.Exception (throw, ErrorCall(..)) import Control.Monad (filterM) import qualified Data.ByteString as B @@ -64,7 +67,7 @@ import Control.Applicative ((<$>)) import Data.ByteString.Unsafe (unsafePackAddressLen) import System.IO.Unsafe (unsafePerformIO) -import System.FilePath ((</>)) +import System.FilePath ((</>), takeDirectory, takeExtension) import Data.String (fromString) import Prelude as P @@ -336,3 +339,42 @@ available, you can use the non-@With@ variants. -} + +-- | Take a relative file path and attach it to the root of the current +-- project. +-- +-- The idea here is that, when building with Stack, the build will always be +-- executed with a current working directory of the root of the project (where +-- your .cabal file is located). However, if you load up multiple projects with +-- @stack ghci@, the working directory may be something else entirely. +-- +-- This function looks at the source location of the Haskell file calling it, +-- finds the first parent directory with a .cabal file, and uses that as the +-- root directory for fixing the relative path. +-- +-- @@@ +-- $(makeRelativeToProject "data/foo.txt" >>= fileEmbed) +-- @@@ +-- +-- @since 0.0.10 +makeRelativeToProject :: FilePath -> Q FilePath +makeRelativeToProject rel = do + loc <- qLocation + runIO $ do + srcFP <- canonicalizePath $ loc_filename loc + mdir <- findProjectDir srcFP + case mdir of + Nothing -> error $ "Could not find .cabal file for path: " ++ srcFP + Just dir -> return $ dir </> rel + where + findProjectDir x = do + let dir = takeDirectory x + if dir == x + then return Nothing + else do + contents <- getDirectoryContents dir + if any isCabalFile contents + then return (Just dir) + else findProjectDir dir + + isCabalFile fp = takeExtension fp == ".cabal" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/file-embed-0.0.9.1/file-embed.cabal new/file-embed-0.0.10/file-embed.cabal --- old/file-embed-0.0.9.1/file-embed.cabal 2016-01-20 08:30:52.000000000 +0100 +++ new/file-embed-0.0.10/file-embed.cabal 2016-04-21 17:33:11.000000000 +0200 @@ -1,5 +1,5 @@ name: file-embed -version: 0.0.9.1 +version: 0.0.10 license: BSD3 license-file: LICENSE author: Michael Snoyman <michael(a)snoyman.com>

1 0