Hello community, here is the log from the commit of package ghc-irc-conduit for openSUSE:Factory checked in at 2017-04-14 13:38:13 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-irc-conduit (Old) and /work/SRC/openSUSE:Factory/.ghc-irc-conduit.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-irc-conduit" Fri Apr 14 13:38:13 2017 rev:3 rq:485136 version:0.2.2.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-irc-conduit/ghc-irc-conduit.changes 2017-02-20 13:16:00.308780469 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-irc-conduit.new/ghc-irc-conduit.changes 2017-04-14 13:38:15.594822045 +0200 @@ -1,0 +2,5 @@ +Tue Mar 7 11:19:26 UTC 2017 - [email protected] + +- Update to version 0.2.2.1 with cabal2obs. + +------------------------------------------------------------------- Old: ---- irc-conduit-0.2.2.0.tar.gz New: ---- irc-conduit-0.2.2.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-irc-conduit.spec ++++++ --- /var/tmp/diff_new_pack.NVcy0Z/_old 2017-04-14 13:38:16.218733867 +0200 +++ /var/tmp/diff_new_pack.NVcy0Z/_new 2017-04-14 13:38:16.222733303 +0200 @@ -18,7 +18,7 @@ %global pkg_name irc-conduit Name: ghc-%{pkg_name} -Version: 0.2.2.0 +Version: 0.2.2.1 Release: 0 Summary: Streaming IRC message library using conduits License: MIT ++++++ irc-conduit-0.2.2.0.tar.gz -> irc-conduit-0.2.2.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/irc-conduit-0.2.2.0/Network/IRC/Conduit/Lens.hs new/irc-conduit-0.2.2.1/Network/IRC/Conduit/Lens.hs --- old/irc-conduit-0.2.2.0/Network/IRC/Conduit/Lens.hs 2017-01-03 18:41:45.000000000 +0100 +++ new/irc-conduit-0.2.2.1/Network/IRC/Conduit/Lens.hs 2017-03-02 04:23:33.000000000 +0100 @@ -1,12 +1,10 @@ -{-# LANGUAGE CPP #-} - -- | -- Module : Network.IRC.Conduit -- Copyright : (c) 2017 Michael Walker -- License : MIT -- Maintainer : Michael Walker <[email protected]> -- Stability : experimental --- Portability : CPP +-- Portability : portable -- -- 'Lens'es and 'Prism's. module Network.IRC.Conduit.Lens where @@ -17,44 +15,142 @@ import Network.IRC.CTCP (CTCPByteString) import Network.IRC.Conduit.Internal --- CPP seem to dislike the first ' on the RHS… -#define PRIME() ' - -#define LENS(S,F,A) \ - {-# INLINE F #-}; \ - {-| PRIME()Lens' for '_/**/F'. -}; \ - F :: Lens' S A; \ - F = \ afb s -> (\ b -> s {_/**/F = b}) <$> afb (_/**/F s) - -#define PRISM(S,C,ARG,TUP,A) \ - {-| PRIME()Prism' for 'C'. -}; \ - {-# INLINE _/**/C #-}; \ - _/**/C :: Prism' S A; \ - _/**/C = dimap (\ s -> case s of C ARG -> Right TUP; _ -> Left s) \ - (either pure $ fmap (\ TUP -> C ARG)) . right' - -- * Lenses for 'Event' -LENS((Event a),raw,ByteString) -LENS((Event a),source,(Source a)) -LENS((Event a),message,(Message a)) + +-- | 'Lens' for '_raw'. +raw :: Lens' (Event a) ByteString +{-# INLINE raw #-} +raw afb s = (\b -> s { _raw = b }) <$> afb (_raw s) + +-- | 'Lens' for '_source'. +source :: Lens' (Event a) (Source a) +{-# INLINE source #-} +source afb s = (\b -> s { _source = b }) <$> afb (_source s) + +-- | 'Lens' for '_message'. +message :: Lens' (Event a) (Message a) +{-# INLINE message #-} +message afb s = (\b -> s { _message = b }) <$> afb (_message s) -- * Prisms for 'Source' -PRISM((Source a),User,name,name,(NickName a)) -PRISM((Source a),Channel,chan name,(chan,name),(ChannelName a, NickName a)) -PRISM((Source a),Server,name,name,(ServerName a)) - --- * #Message# Prisms for 'Message' -PRISM((Message a),Privmsg,tar msg,(tar, msg),(Target a, Either CTCPByteString a)) -PRISM((Message a),Notice,tar msg,(tar, msg),(Target a, Either CTCPByteString a)) -PRISM((Message a),Nick,name,name,(NickName a)) -PRISM((Message a),Join,chan,chan,(ChannelName a)) -PRISM((Message a),Part,chan reason,(chan, reason),(ChannelName a, Reason a)) -PRISM((Message a),Quit,reason,reason,(Reason a)) -PRISM((Message a),Mode,tar is flags args,(tar, is, flags, args),(Target a, IsModeSet, [ModeFlag a], [ModeArg a])) -PRISM((Message a),Topic,name topic,(name, topic),(ChannelName a, a)) -PRISM((Message a),Invite,chan name,(chan, name),(ChannelName a, NickName a)) -PRISM((Message a),Kick,chan name reason,(chan, name, reason),(ChannelName a, NickName a, Reason a)) -PRISM((Message a),Ping,ser ver,(ser, ver),(ServerName a, Maybe (ServerName a))) -PRISM((Message a),Pong,ser,ser,(ServerName a)) -PRISM((Message a),Numeric,num args,(num, args),(Int, [NumericArg a])) -PRISM((Message a),RawMsg,msg,msg,a) + +-- | 'Prism' for 'User' +_User :: Prism' (Source a) (NickName a) +{-# INLINE _User #-} +_User = dimap + (\s -> case s of User n -> Right n; _ -> Left s) + (either pure $ fmap User) . right' + +-- | 'Prism' for 'Channel' +_Channel :: Prism' (Source a) (ChannelName a, NickName a) +{-# INLINE _Channel #-} +_Channel = dimap + (\s -> case s of Channel c n -> Right (c,n); _ -> Left s) + (either pure $ fmap (uncurry Channel)) . right' + +-- | 'Prism' for 'Server' +_Server :: Prism' (Source a) (ServerName a) +{-# INLINE _Server #-} +_Server = dimap + (\s -> case s of Server n -> Right n; _ -> Left s) + (either pure $ fmap Server) . right' + +-- * Prisms for 'Message' + +-- | 'Prism' for 'Privmsg' +_Privmsg :: Prism' (Message a) (Target a, Either CTCPByteString a) +{-# INLINE _Privmsg #-} +_Privmsg = dimap + (\s -> case s of Privmsg t m -> Right (t,m); _ -> Left s) + (either pure $ fmap (uncurry Privmsg)) . right' + +-- | 'Prism' for 'Notice' +_Notice :: Prism' (Message a) (Target a, Either CTCPByteString a) +{-# INLINE _Notice #-} +_Notice = dimap + (\s -> case s of Notice t m -> Right (t,m); _ -> Left s) + (either pure $ fmap (uncurry Notice)) . right' + +-- | 'Prism' for 'Nick' +_Nick :: Prism' (Message a) (NickName a) +{-# INLINE _Nick #-} +_Nick = dimap + (\s -> case s of Nick n -> Right n; _ -> Left s) + (either pure $ fmap Nick) . right' + +-- | 'Prism' for 'Join' +_Join :: Prism' (Message a) (ChannelName a) +{-# INLINE _Join #-} +_Join = dimap + (\s -> case s of Join c -> Right c; _ -> Left s) + (either pure $ fmap Join) . right' + +-- | 'Prism' for 'Part' +_Part :: Prism' (Message a) (ChannelName a, Reason a) +{-# INLINE _Part #-} +_Part = dimap + (\s -> case s of Part c r -> Right (c,r); _ -> Left s) + (either pure $ fmap (uncurry Part)) . right' + +-- | 'Prism' for 'Quit' +_Quit :: Prism' (Message a) (Reason a) +{-# INLINE _Quit #-} +_Quit = dimap + (\s -> case s of Quit r -> Right r; _ -> Left s) + (either pure $ fmap Quit) . right' + +-- | 'Prism' for 'Mode' +_Mode :: Prism' (Message a) (Target a, IsModeSet, [ModeFlag a], [ModeArg a]) +{-# INLINE _Mode #-} +_Mode = dimap + (\s -> case s of Mode t i f a -> Right (t,i,f,a); _ -> Left s) + (either pure $ fmap (\(t,i,f,a) -> Mode t i f a)) . right' + +-- | 'Prism' for 'Topic' +_Topic :: Prism' (Message a) (ChannelName a, a) +{-# INLINE _Topic #-} +_Topic = dimap + (\s -> case s of Topic c t -> Right (c,t); _ -> Left s) + (either pure $ fmap (uncurry Topic)) . right' + +-- | 'Prism' for 'Invite' +_Invite :: Prism' (Message a) (ChannelName a, NickName a) +{-# INLINE _Invite #-} +_Invite = dimap + (\s -> case s of Invite c n -> Right (c,n); _ -> Left s) + (either pure $ fmap (uncurry Invite)) . right' + +-- | 'Prism' for 'Kick' +_Kick :: Prism' (Message a) (ChannelName a, NickName a, Reason a) +{-# INLINE _Kick #-} +_Kick = dimap + (\s -> case s of Kick c n r -> Right (c,n,r); _ -> Left s) + (either pure $ fmap (\(c,n,r) -> Kick c n r)) . right' + +-- | 'Prism' for 'Ping' +_Ping :: Prism' (Message a) (ServerName a, Maybe (ServerName a)) +{-# INLINE _Ping #-} +_Ping = dimap + (\s -> case s of Ping x y -> Right (x,y); _ -> Left s) + (either pure $ fmap (uncurry Ping)) . right' + +-- | 'Prism' for 'Pong' +_Pong :: Prism' (Message a) (ServerName a) +{-# INLINE _Pong #-} +_Pong = dimap + (\s -> case s of Pong x -> Right x; _ -> Left s) + (either pure $ fmap Pong) . right' + +-- | 'Prism' for 'Numeric' +_Numeric :: Prism' (Message a) (Int, [NumericArg a]) +{-# INLINE _Numeric #-} +_Numeric = dimap + (\s -> case s of Numeric n a -> Right (n,a); _ -> Left s) + (either pure $ fmap (uncurry Numeric)) . right' + +-- | 'Prism' for 'RawMsg' +_RawMsg :: Prism' (Message a) a +{-# INLINE _RawMsg #-} +_RawMsg = dimap + (\s -> case s of RawMsg a -> Right a; _ -> Left s) + (either pure $ fmap RawMsg) . right' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/irc-conduit-0.2.2.0/irc-conduit.cabal new/irc-conduit-0.2.2.1/irc-conduit.cabal --- old/irc-conduit-0.2.2.0/irc-conduit.cabal 2017-01-03 22:06:05.000000000 +0100 +++ new/irc-conduit-0.2.2.1/irc-conduit.cabal 2017-03-02 04:23:51.000000000 +0100 @@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change -version: 0.2.2.0 +version: 0.2.2.1 -- A short (one-line) description of the package. synopsis: Streaming IRC message library using conduits. @@ -108,4 +108,4 @@ source-repository this type: git location: https://github.com/barrucadu/irc-conduit.git - tag: 0.2.2.0 + tag: 0.2.2.1
