hashed-storage 0.4.12 → 0.4.13

raw patch · 2 files changed

+18/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Bundled/Posix.hsc +17/−4
• hashed-storage.cabal +1/−1

@@ -10,7 +10,6 @@ import Data.ByteString.Unsafe( unsafeUseAsCString ) import Foreign.Marshal.Alloc ( allocaBytes ) import Foreign.C.Error ( throwErrno, getErrno, eNOENT )-import Foreign.C.String ( withCString ) import Foreign.C.Types ( CTime, CInt ) import Foreign.Ptr ( Ptr ) @@ -20,6 +19,12 @@  import System.Posix.Types ( Fd(..), CMode, EpochTime ) +#if mingw32_HOST_OS && __GLASGOW_HASKELL__ >= 612+import Foreign.C.String( withCWString )+#else+import Foreign.C.String ( withCString )+#endif+ #if mingw32_HOST_OS import Data.Int ( Int64 ) @@ -30,6 +35,14 @@ import System.Posix.Internals( lstat ) #endif +#if mingw32_HOST_OS && __GLASGOW_HASKELL__ >= 612+bsToPath s f = withCWString (BS.unpack s) f+strToPath = withCWString+#else+bsToPath = unsafeUseAsCString+strToPath = withCString+#endif+ data FileStatus = FileStatus {     fst_exists :: !Bool,     fst_mode :: !CMode,@@ -78,15 +91,15 @@ getSymbolicLinkStatus = getFileStatus ##else getSymbolicLinkStatus fp =-  do_stat (\p -> (fp `withCString` (`lstat` p)))+  do_stat (\p -> (fp `strToPath` (`lstat` p))) ##endif  getFileStatus :: FilePath -> IO FileStatus getFileStatus fp =-  do_stat (\p -> (fp `withCString` (`lstat` p)))+  do_stat (\p -> (fp `strToPath` (`lstat` p)))  -- | Requires NULL-terminated bytestring -> unsafe! Use with care. getFileStatusBS :: BS.ByteString -> IO FileStatus getFileStatusBS fp =-  do_stat (\p -> (fp `unsafeUseAsCString` (`lstat` p)))+  do_stat (\p -> (fp `bsToPath` (`lstat` p))) {-# INLINE getFileStatusBS #-}

@@ -1,5 +1,5 @@ name:          hashed-storage-version:       0.4.12+version:       0.4.13 synopsis:      Hashed file storage support code.  description:   Support code for reading and manipulating hashed file storage