Hello community, here is the log from the commit of package ghc-path-io for openSUSE:Factory checked in at 2018-12-28 12:35:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-path-io (Old) and /work/SRC/openSUSE:Factory/.ghc-path-io.new.28833 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-path-io" Fri Dec 28 12:35:16 2018 rev:11 rq:661499 version:1.4.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-path-io/ghc-path-io.changes 2018-10-25 09:01:58.594665041 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-path-io.new.28833/ghc-path-io.changes 2018-12-28 12:35:27.239957941 +0100 @@ -1,0 +2,9 @@ +Fri Dec 21 03:02:43 UTC 2018 - [email protected] + +- Update path-io to version 1.4.1. + ## Path IO 1.4.1 + + * Fixed a bug in `walkDirRel` that resulted in `NotAProperPrefix` exception + every time the function was called. + +------------------------------------------------------------------- Old: ---- path-io-1.4.0.tar.gz New: ---- path-io-1.4.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-path-io.spec ++++++ --- /var/tmp/diff_new_pack.avFUiv/_old 2018-12-28 12:35:27.687957627 +0100 +++ /var/tmp/diff_new_pack.avFUiv/_new 2018-12-28 12:35:27.691957625 +0100 @@ -19,7 +19,7 @@ %global pkg_name path-io %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.4.0 +Version: 1.4.1 Release: 0 Summary: Interface to ‘directory’ package for users of ‘path’ License: BSD-3-Clause ++++++ path-io-1.4.0.tar.gz -> path-io-1.4.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/path-io-1.4.0/CHANGELOG.md new/path-io-1.4.1/CHANGELOG.md --- old/path-io-1.4.0/CHANGELOG.md 2018-07-21 19:41:24.000000000 +0200 +++ new/path-io-1.4.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,3 +1,8 @@ +## Path IO 1.4.1 + +* Fixed a bug in `walkDirRel` that resulted in `NotAProperPrefix` exception + every time the function was called. + ## Path IO 1.4.0 * Added relative versions of some actions: `listDirRel`, `listDirRecurRel`, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/path-io-1.4.0/Path/IO.hs new/path-io-1.4.1/Path/IO.hs --- old/path-io-1.4.0/Path/IO.hs 2018-07-21 19:41:24.000000000 +0200 +++ new/path-io-1.4.1/Path/IO.hs 2001-09-09 03:46:40.000000000 +0200 @@ -14,6 +14,7 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TupleSections #-} {-# LANGUAGE TypeFamilies #-} @@ -126,9 +127,6 @@ #if MIN_VERSION_directory(1,2,3) import System.Directory (XdgDirectory) #endif -#if !MIN_VERSION_base(4,8,0) -import Data.Monoid (Monoid) -#endif ---------------------------------------------------------------------------- -- Actions on directories @@ -564,8 +562,9 @@ stripDir topdir #endif handler curdir subdirs files = do - -- These should not ever fail. - curdirRel <- stripTopdir curdir + curdirRel <- if curdir == topdir + then return $(mkRelDir ".") + else stripTopdir curdir subdirsRel <- mapM stripTopdir subdirs filesRel <- mapM stripTopdir files action <- handler' curdirRel subdirsRel filesRel diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/path-io-1.4.0/path-io.cabal new/path-io-1.4.1/path-io.cabal --- old/path-io-1.4.0/path-io.cabal 2018-07-21 19:41:24.000000000 +0200 +++ new/path-io-1.4.1/path-io.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,7 +1,7 @@ name: path-io -version: 1.4.0 +version: 1.4.1 cabal-version: 1.18 -tested-with: GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.3 +tested-with: GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.4, GHC==8.6.3 license: BSD3 license-file: LICENSE.md author: Mark Karpov <[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/path-io-1.4.0/tests/Main.hs new/path-io-1.4.1/tests/Main.hs --- old/path-io-1.4.0/tests/Main.hs 2018-07-21 19:41:24.000000000 +0200 +++ new/path-io-1.4.1/tests/Main.hs 2001-09-09 03:46:40.000000000 +0200 @@ -36,6 +36,7 @@ describe "getCurrentDir" getCurrentDirSpec describe "setCurrentDir" setCurrentDirSpec describe "withCurrentDir" withCurrentDirSpec + describe "walkDirRel" walkDirRelSpec #ifndef mingw32_HOST_OS -- NOTE We can't quite test this on Windows as well, because the -- environmental variables HOME and TMPDIR do not exist there. @@ -160,6 +161,15 @@ getCurrentDir `shouldReturn` dir getCurrentDir `shouldNotReturn` dir +walkDirRelSpec :: SpecWith (Path Abs Dir) +walkDirRelSpec = it "does not throw exceptions" $ \dir -> do + let handler curdir subdirs files = do + curdir `shouldBe` $(mkRelDir ".") + subdirs `shouldBe` [] + files `shouldBe` [] + return WalkFinish + walkDirRel handler dir + getHomeDirSpec :: SpecWith (Path Abs Dir) getHomeDirSpec = it "home dir is influenced by environment variable HOME" $ \dir ->
