[Pkg-ocaml-maint-commits] r1004 - tools/show-ocaml-depends

[Sven Luther]

Author: luther
Date: 2005-03-17 16:51:28 +0100 (Thu, 17 Mar 2005)
New Revision: 1004

Modified:
   tools/show-ocaml-depends/snapshot.ml
Log:
smallish type in snapshoting tool.


Modified: tools/show-ocaml-depends/snapshot.ml
===================================================================
--- tools/show-ocaml-depends/snapshot.ml	2005-03-17 15:41:58 UTC (rev 1003)
+++ tools/show-ocaml-depends/snapshot.ml	2005-03-17 15:51:28 UTC (rev 1004)
@@ -83,7 +83,7 @@
   let e = List.map (function f,cs -> f, List.rev cs) e in
   List.rev e, (l + 1)
   
-(* Selective pqrsing *)
+(* Selective parsing *)
 let apply_to_entries f empty fd =
   let rec all_entries l acc =
     try 
@@ -103,7 +103,7 @@
   
 let print_package name e () =
   match List.assoc "Package" e with
-  | ["ocaml"] -> print_entry e
+  | [p] when p = name -> print_entry e
   | _ -> ()
 
 (* Main calling function *)