Hello community,

here is the log from the commit of package ghc-list-t for openSUSE:Factory 
checked in at 2016-02-17 10:25:49
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-list-t (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-list-t.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-list-t"

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-list-t/ghc-list-t.changes    2015-11-10 
10:02:21.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-list-t.new/ghc-list-t.changes       
2016-02-17 12:11:49.000000000 +0100
@@ -1,0 +2,5 @@
+Sun Feb 14 07:22:57 UTC 2016 - [email protected]
+
+- update to 0.4.6
+
+-------------------------------------------------------------------

Old:
----
  list-t-0.4.5.1.tar.gz

New:
----
  list-t-0.4.6.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-list-t.spec ++++++
--- /var/tmp/diff_new_pack.NHIthL/_old  2016-02-17 12:11:50.000000000 +0100
+++ /var/tmp/diff_new_pack.NHIthL/_new  2016-02-17 12:11:50.000000000 +0100
@@ -20,7 +20,7 @@
 %bcond_with tests
 
 Name:           ghc-list-t
-Version:        0.4.5.1
+Version:        0.4.6
 Release:        0
 Summary:        ListT done right
 Group:          System/Libraries

++++++ list-t-0.4.5.1.tar.gz -> list-t-0.4.6.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/list-t-0.4.5.1/library/ListT.hs 
new/list-t-0.4.6/library/ListT.hs
--- old/list-t-0.4.5.1/library/ListT.hs 2015-04-24 20:53:43.000000000 +0200
+++ new/list-t-0.4.6/library/ListT.hs   2016-02-12 13:15:21.000000000 +0100
@@ -19,6 +19,7 @@
   fromFoldable,
   fromMVar,
   unfold,
+  unfoldM,
   repeat,
   -- * Transformation utilities
   -- | 
@@ -72,8 +73,8 @@
             return (Just (h1, (mappend s1' (ListT m2))))
 
 instance Functor m => Functor (ListT m) where
-  fmap f (ListT m) =
-    ListT $ (fmap . fmap) (\(a, b) -> (f a, fmap f b)) m
+  fmap f =
+    ListT . (fmap . fmap) (f *** fmap f) . unListT
 
 instance (Monad m, Functor m) => Applicative (ListT m) where
   pure = 
@@ -114,8 +115,8 @@
     lift . liftIO
 
 instance MFunctor ListT where
-  hoist f (ListT m) =
-    ListT $ f $ m >>= return . fmap (\(h, t) -> (h, hoist f t))
+  hoist f =
+    ListT . f . (fmap . fmap) (id *** hoist f) . unListT
 
 instance MMonad ListT where
   embed f (ListT m) =
@@ -293,6 +294,18 @@
   maybe mzero (\(h, t) -> cons h (unfold f t)) (f s)
 
 -- |
+-- Construct by unfolding a monadic data structure
+--
+-- This is the most memory-efficient way to construct a ListT where
+-- the length depends on the inner monad.
+{-# INLINABLE unfoldM #-}
+unfoldM :: (Monad m) => (b -> m (Maybe (a, b))) -> b -> ListT m a
+unfoldM f = go where
+  go s = ListT $ f s >>= \case
+    Nothing -> return Nothing
+    Just (a,r) -> return (Just (a, go r))
+
+-- |
 -- Produce an infinite stream.
 {-# INLINABLE repeat #-}
 repeat :: (MonadCons m) => a -> m a
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/list-t-0.4.5.1/list-t.cabal 
new/list-t-0.4.6/list-t.cabal
--- old/list-t-0.4.5.1/list-t.cabal     2015-04-24 20:53:43.000000000 +0200
+++ new/list-t-0.4.6/list-t.cabal       2016-02-12 13:15:21.000000000 +0100
@@ -1,7 +1,7 @@
 name:
   list-t
 version:
-  0.4.5.1
+  0.4.6
 synopsis:
   ListT done right
 description:
@@ -43,12 +43,12 @@
   exposed-modules:
     ListT
   build-depends:
-    mmorph == 1.0.*,
-    monad-control >= 0.3 && < 1.1,
+    mmorph == 1.*,
+    monad-control >= 0.3 && < 2,
     mtl == 2.*,
     transformers-base == 0.4.*,
-    transformers >= 0.3 && < 0.5,
-    base-prelude == 0.1.*
+    transformers >= 0.3 && < 0.6,
+    base-prelude < 2
   default-extensions:
     Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, 
DeriveDataTypeable, DeriveFunctor, DeriveGeneric, EmptyDataDecls, 
FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, 
GeneralizedNewtypeDeriving, ImpredicativeTypes, LambdaCase, 
LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, 
NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, 
ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, 
ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, 
TypeFamilies, TypeOperators, UnboxedTuples
   default-language:
@@ -65,9 +65,9 @@
   build-depends:
     list-t,
     mmorph,
-    HTF == 0.12.*,
+    HTF == 0.13.*,
     mtl-prelude < 3,
-    base-prelude >= 0.1.3 && < 0.2
+    base-prelude
   default-extensions:
     Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, 
DeriveDataTypeable, DeriveFunctor, DeriveGeneric, EmptyDataDecls, 
FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, 
GeneralizedNewtypeDeriving, ImpredicativeTypes, LambdaCase, 
LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, 
NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, 
ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, 
ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, 
TypeFamilies, TypeOperators, UnboxedTuples
   default-language:


Reply via email to