Ticket #24244: hs-hashed-storage.patch

devel/hs-hashed-storage/Portfile

@@ -3 +3 @@
 PortSystem 1.0
 
 PortGroup       haskell 1.0
-haskell.setup   hashed-storage 0.4.7
+haskell.setup   hashed-storage 0.4.11
 maintainers     gwright
 platforms       darwin
 
@@ -18 +18 @@
         a plain filesystem tree and an indexed plain tree (where the    \
         index maintains hashes of the plain files and directories). 
 
-checksums       md5     357688675e348eee8c3c60058635f907 \
-                sha1    dc732b95ea3f454d870544012093fd203dd214fd \
-                rmd160  07d11934511f0cb2731faea7f3158067377e4c96
+patchfiles      patch-mmap-0.5
+
+checksums       md5     2b779e9668479c2361a2bdb8ea7233eb \
+                sha1    f5d42e0c84503421076e9c4e35f7d419db6699f2 \
+                rmd160  5ba098205c23ae41fa6f783a46b15c0f35e553dd
 
 depends_lib     port:ghc                \
                 port:hs-binary          \

devel/hs-hashed-storage/files/patch-mmap-0.5

@@ +1 @@
+--- hashed-storage.cabal.orig   2010-06-18 10:03:43.000000000 -0700
++++ hashed-storage.cabal        2010-06-18 10:03:59.000000000 -0700
+@@ -73,7 +73,7 @@
+                    dataenc,
+                    binary,
+                    zlib,
+-                   mmap >= 0.4 && < 0.5
++                   mmap >= 0.5 && < 0.6
+ 
+     c-sources: Bundled/sha2.c
+ 
+--- Storage/Hashed/Index.hs.orig        2010-06-18 10:05:43.000000000 -0700
++++ Storage/Hashed/Index.hs     2010-06-18 10:06:12.000000000 -0700
+@@ -213,8 +213,8 @@
+                  if req_size > 0 then fromIntegral req_size else act_size
+   case size of
+     0 -> return (castForeignPtr nullForeignPtr, size)
+-    _ -> do (x, _) <- mmapFileForeignPtr indexpath
+-                                         ReadWrite (Just (0, size + size_magic))
++    _ -> do (x, _, _) <- mmapFileForeignPtr indexpath
++                                            ReadWriteEx (Just (0, size + size_magic))
+             return (x, size)
+ 
+ data IndexM m = Index { mmap :: (ForeignPtr ())