hit 0.4.2 → 0.4.3
raw patch · 2 files changed
+10/−2 lines, 2 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
- Data/Git/Storage/FileWriter.hs +9/−1
- hit.cabal +1/−1
Data/Git/Storage/FileWriter.hs view
@@ -20,6 +20,14 @@ defaultCompression = 6 +-- this is a copy of modifyIORef' found in base 4.6 (ghc 7.6),+-- for older version of base.+modifyIORefStrict :: IORef a -> (a -> a) -> IO ()+modifyIORefStrict ref f = do+ x <- readIORef ref+ let x' = f x+ x' `seq` writeIORef ref x'+ data FileWriter = FileWriter { writerHandle :: Handle , writerDeflate :: Deflate@@ -42,7 +50,7 @@ postDeflate handle = maybe (return ()) (B.hPut handle) fileWriterOutput (FileWriter { writerHandle = handle, writerDigest = digest, writerDeflate = deflate }) bs = do- modifyIORef' digest (\ctx -> SHA1.update ctx bs)+ modifyIORefStrict digest (\ctx -> SHA1.update ctx bs) (>>= postDeflate handle) =<< feedDeflate deflate bs fileWriterClose (FileWriter { writerHandle = handle, writerDeflate = deflate }) =
hit.cabal view
@@ -1,5 +1,5 @@ Name: hit-Version: 0.4.2+Version: 0.4.3 Synopsis: Git operations in haskell Description: .