Hello community,

here is the log from the commit of package ghc-yi-language for openSUSE:Factory 
checked in at 2017-07-06 00:00:16
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-yi-language (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-yi-language.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-yi-language"

Thu Jul  6 00:00:16 2017 rev:2 rq:506864 version:0.13.7

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-yi-language/ghc-yi-language.changes  
2017-05-09 18:08:17.433307056 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-yi-language.new/ghc-yi-language.changes     
2017-07-06 00:00:17.340590617 +0200
@@ -1,0 +2,5 @@
+Mon Jun 19 21:01:50 UTC 2017 - [email protected]
+
+- Update to version 0.13.7.
+
+-------------------------------------------------------------------

Old:
----
  yi-language-0.13.5.tar.gz

New:
----
  yi-language-0.13.7.tar.gz

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

Other differences:
------------------
++++++ ghc-yi-language.spec ++++++
--- /var/tmp/diff_new_pack.JGEAti/_old  2017-07-06 00:00:18.664404128 +0200
+++ /var/tmp/diff_new_pack.JGEAti/_new  2017-07-06 00:00:18.668403565 +0200
@@ -19,7 +19,7 @@
 %global pkg_name yi-language
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.13.5
+Version:        0.13.7
 Release:        0
 Summary:        Collection of language-related Yi libraries
 License:        GPL-2.0+

++++++ yi-language-0.13.5.tar.gz -> yi-language-0.13.7.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yi-language-0.13.5/src/Yi/Lexer/Alex.hs 
new/yi-language-0.13.7/src/Yi/Lexer/Alex.hs
--- old/yi-language-0.13.5/src/Yi/Lexer/Alex.hs 2016-12-06 20:47:41.000000000 
+0100
+++ new/yi-language-0.13.7/src/Yi/Lexer/Alex.hs 2017-06-14 18:26:30.000000000 
+0200
@@ -212,7 +212,7 @@
 -- | unfold lexer into a function that returns a stream of (state, token)
 unfoldLexer :: ((state, input) -> Maybe (token, (state, input)))
             -> (state, input) -> [(state, token)]
-unfoldLexer f b = case f b of
+unfoldLexer f b = fst b `seq` case f b of
              Nothing -> []
              Just (t, b') -> (fst b, t) : unfoldLexer f b'
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yi-language-0.13.5/src/Yi/Lexer/Compilation.x 
new/yi-language-0.13.7/src/Yi/Lexer/Compilation.x
--- old/yi-language-0.13.5/src/Yi/Lexer/Compilation.x   2016-12-07 
19:31:36.000000000 +0100
+++ new/yi-language-0.13.7/src/Yi/Lexer/Compilation.x   2017-06-14 
18:26:30.000000000 +0200
@@ -8,7 +8,7 @@
 {-# OPTIONS -w  #-}
 module Yi.Lexer.Compilation (lexer, Token(..)) where
 import Yi.Lexer.Alex hiding (tokenToStyle)
-import Yi.Regex
+import Yi.Regex (matchOnceText, Regex, makeRegex)
 import Yi.Style (commentStyle)
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yi-language-0.13.5/src/Yi/Regex.hs 
new/yi-language-0.13.7/src/Yi/Regex.hs
--- old/yi-language-0.13.5/src/Yi/Regex.hs      2016-08-20 13:31:50.000000000 
+0200
+++ new/yi-language-0.13.7/src/Yi/Regex.hs      2017-06-14 18:26:30.000000000 
+0200
@@ -14,15 +14,18 @@
   , module Text.Regex.TDFA
   ) where
 
+import Data.Bifunctor (first)
 import Data.Binary
 import GHC.Generics (Generic)
-import Text.Regex.TDFA
-import Text.Regex.TDFA.Pattern
-import Control.Applicative
-import Lens.Micro.Platform
+import Yi.Buffer.Basic (Direction(..))
+
+import Text.Regex.TDFA ( Regex, CompOption(..), caseSensitive, multiline
+                       , defaultCompOpt, defaultExecOpt, makeRegexOptsM
+                       , matchOnceText, makeRegex, RegexLike(matchAll)
+                       , AllTextSubmatches(..), (=~))
+import Text.Regex.TDFA.Pattern (Pattern(..), DoPa(..), showPattern)
 import Text.Regex.TDFA.ReadRegex(parseRegex)
 import Text.Regex.TDFA.TDFA(patternToRegex)
-import Yi.Buffer.Basic (Direction(..))
 
 -- input string, regexexp, backward regex.
 data SearchExp = SearchExp
@@ -69,7 +72,7 @@
           compile source = patternToRegex source (searchOpts opts 
defaultCompOpt) defaultExecOpt
           pattern = if QuoteRegex `elem` opts
                           then Right (literalPattern re)
-                          else mapLeft show (parseRegex re)
+                          else first show (parseRegex re)
 
 instance Binary SearchExp where
   get = do re   <- get
@@ -81,10 +84,6 @@
                    seOptions = opts, .. }) = do put re
                                                 put opts
 
-mapLeft :: (t1 -> a) -> Either t1 t -> Either a t
-mapLeft _ (Right a) = Right a
-mapLeft f (Left a) = Left (f a)
-
 -- | Return an escaped (for parseRegex use) version of the string.
 regexEscapeString :: String -> String
 regexEscapeString source = showPattern . literalPattern' $ source
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yi-language-0.13.5/yi-language.cabal 
new/yi-language-0.13.7/yi-language.cabal
--- old/yi-language-0.13.5/yi-language.cabal    2016-12-10 10:39:40.000000000 
+0100
+++ new/yi-language-0.13.7/yi-language.cabal    2017-06-17 19:57:23.000000000 
+0200
@@ -1,9 +1,9 @@
--- This file has been generated from package.yaml by hpack version 0.14.0.
+-- This file has been generated from package.yaml by hpack version 0.17.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           yi-language
-version:        0.13.5
+version:        0.13.7
 synopsis:       Collection of language-related Yi libraries.
 category:       Yi
 homepage:       https://github.com/yi-editor/yi#readme


Reply via email to