X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Fgif.ml;h=cbfa928eead9c3c818bc95e7a04c685428fb25e2;hb=0fb4b24ebe3b85c935786f8e3e472d0d2292744e;hp=050a9c8db384c57833a2cee85187779eccbfed0d;hpb=46d02767bf223661c05127d86878a74be0bda712;p=ocaml-bitstring.git

diff --git a/examples/gif.ml b/examples/gif.ml
index 050a9c8..cbfa928 100644
--- a/examples/gif.ml
+++ b/examples/gif.ml
@@ -8,7 +8,7 @@ let () =
   if Array.length Sys.argv <= 1 then
     failwith "usage: gif input.gif";
   let filename = Sys.argv.(1) in
-  let bits = Bitmatch.bitstring_of_file filename in
+  let bits = Bitstring.bitstring_of_file filename in
 
   bitmatch bits with
   | { ("GIF87a"|"GIF89a") : 6*8 : string; (* GIF magic. *)