release 0.2

ygrek · Jun 6, 2016 · d630b69 · d630b69
1 parent 850c46f
commit d630b69
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/_oasis b/_oasis
@@ -1,6 +1,6 @@
 OASISFormat: 0.4
 Name:        zstd
-Version:     0.1
+Version:     0.2
 Synopsis:    Bindings to zstd compression library
 Authors:     ygrek
 Copyrights:  (C) 2016 ygrek

diff --git a/src/zstd.ml b/src/zstd.ml
@@ -41,11 +41,11 @@ let decompress orig ?dict s =
   let dst = allocate_n char ~count:orig in
   let r =
     match dict with
-    | None -> do_decompress (to_voidp dst) (Size_t.of_int orig) s (Size_t.of_int @@ String.length s)
+    | None -> do_decompress (to_voidp dst) (Size_t.of_int orig) s (Size_t.of_int (String.length s))
     | Some dict ->
       let dlen = Size_t.of_int (String.length dict) in
       bracket (create_dctx ()) free_dctx begin fun dctx ->
-        do_decompress_dict dctx (to_voidp dst) (Size_t.of_int orig) s (Size_t.of_int @@ String.length s) dict dlen
+        do_decompress_dict dctx (to_voidp dst) (Size_t.of_int orig) s (Size_t.of_int (String.length s)) dict dlen
       end
   in
   check r;