Hello community,

here is the log from the commit of package hlint for openSUSE:Factory checked 
in at 2015-06-02 10:06:18
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/hlint (Old)
 and      /work/SRC/openSUSE:Factory/.hlint.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "hlint"

Changes:
--------
--- /work/SRC/openSUSE:Factory/hlint/hlint.changes      2015-05-21 
08:38:34.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.hlint.new/hlint.changes 2015-06-02 
10:06:19.000000000 +0200
@@ -1,0 +2,8 @@
+Sun May 31 20:20:29 UTC 2015 - mimi...@gmail.com
+
+- update to 1.9.21
+* ignore a BOM if it exists
+* don't find files starting with . when searching directories
+* Suggest concat even if the [] is written ""
+
+-------------------------------------------------------------------

Old:
----
  hlint-1.9.20.tar.gz

New:
----
  hlint-1.9.21.tar.gz

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

Other differences:
------------------
++++++ hlint.spec ++++++
--- /var/tmp/diff_new_pack.SaoFhr/_old  2015-06-02 10:06:20.000000000 +0200
+++ /var/tmp/diff_new_pack.SaoFhr/_new  2015-06-02 10:06:20.000000000 +0200
@@ -20,7 +20,7 @@
 # no useful debuginfo for Haskell packages without C sources
 %global debug_package %{nil}
 Name:           hlint
-Version:        1.9.20
+Version:        1.9.21
 Release:        0
 Summary:        Source code suggestions
 License:        BSD-3-Clause

++++++ hlint-1.9.20.tar.gz -> hlint-1.9.21.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hlint-1.9.20/CHANGES.txt new/hlint-1.9.21/CHANGES.txt
--- old/hlint-1.9.20/CHANGES.txt        2015-04-21 12:27:15.000000000 +0200
+++ new/hlint-1.9.21/CHANGES.txt        2015-05-26 11:47:36.000000000 +0200
@@ -1,5 +1,9 @@
 Changelog for HLint
 
+1.9.21
+    #130, ignore a BOM if it exists
+    #128, don't find files starting with . when searching directories
+    Suggest concat even if the [] is written ""
 1.9.20
     #122, fix the zipWith/repeat hint
 1.9.19
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hlint-1.9.20/data/Default.hs 
new/hlint-1.9.21/data/Default.hs
--- old/hlint-1.9.20/data/Default.hs    2015-04-21 12:27:15.000000000 +0200
+++ new/hlint-1.9.21/data/Default.hs    2015-05-26 11:47:36.000000000 +0200
@@ -108,7 +108,9 @@
 -- error = take (length x - 1) x ==> init x -- not true for x == []
 error = isPrefixOf (reverse x) (reverse y) ==> isSuffixOf x y
 error = foldr (++) [] ==> concat
+error = foldr (++) "" ==> concat
 error = foldl (++) [] ==> concat where note = IncreasesLaziness
+error = foldl (++) "" ==> concat where note = IncreasesLaziness
 error = foldl f (head x) (tail x) ==> foldl1 f x
 error = foldr f (last x) (init x) ==> foldr1 f x
 error = span (not . p) ==> break p
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hlint-1.9.20/hlint.cabal new/hlint-1.9.21/hlint.cabal
--- old/hlint-1.9.20/hlint.cabal        2015-04-21 12:27:15.000000000 +0200
+++ new/hlint-1.9.21/hlint.cabal        2015-05-26 11:47:36.000000000 +0200
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.6
 build-type:         Simple
 name:               hlint
-version:            1.9.20
+version:            1.9.21
 license:            BSD3
 license-file:       LICENSE
 category:           Development
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hlint-1.9.20/src/CmdLine.hs 
new/hlint-1.9.21/src/CmdLine.hs
--- old/hlint-1.9.20/src/CmdLine.hs     2015-04-21 12:27:15.000000000 +0200
+++ new/hlint-1.9.21/src/CmdLine.hs     2015-05-26 11:47:36.000000000 +0200
@@ -210,9 +210,10 @@
 getFile (p:ath) exts file = do
     isDir <- doesDirectoryExist $ p <\> file
     if isDir then do
-        let avoid x = let y = takeFileName x in "_" `isPrefixOf` y || ("." 
`isPrefixOf` y && not (all (== '.') y))
-        xs <- listFilesInside (return . not . avoid) $ p <\> file
-        return [x | x <- xs, drop 1 (takeExtension x) `elem` exts]
+        let avoidDir x = let y = takeFileName x in "_" `isPrefixOf` y || ("." 
`isPrefixOf` y && not (all (== '.') y))
+            avoidFile x = let y = takeFileName x in "." `isPrefixOf` y
+        xs <- listFilesInside (return . not . avoidDir) $ p <\> file
+        return [x | x <- xs, drop 1 (takeExtension x) `elem` exts, not $ 
avoidFile x]
      else do
         isFil <- doesFileExist $ p <\> file
         if isFil then return [p <\> file]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hlint-1.9.20/src/HSE/All.hs 
new/hlint-1.9.21/src/HSE/All.hs
--- old/hlint-1.9.20/src/HSE/All.hs     2015-04-21 12:27:15.000000000 +0200
+++ new/hlint-1.9.21/src/HSE/All.hs     2015-05-26 11:47:36.000000000 +0200
@@ -67,6 +67,7 @@
 parseModuleEx :: ParseFlags -> FilePath -> Maybe String -> IO (Either 
ParseError (Module SrcSpanInfo, [Comment]))
 parseModuleEx flags file str = do
         str <- maybe (readFileEncoding (encoding flags) file) return str
+        str <- return $ fromMaybe str $ stripPrefix "\65279" str -- remove the 
BOM if it exists, see #130
         ppstr <- runCpp (cppFlags flags) file str
         case parseFileContentsWithComments (mode flags) ppstr of
             ParseOk (x, cs) -> return $ Right (applyFixity fixity x, cs)


Reply via email to