Fix myocamlbuild expunge code that broke after 0.3->0.4 OASIS migration.

2014-10-20 19:53:18 +04:00 · 2014-10-20 19:53:18 +04:00 · c1bcb5abc5
parent 789417bfce
commit c1bcb5abc5
1 changed files with 2 additions and 2 deletions
--- a/myocamlbuild.ml
+++ b/myocamlbuild.ml
@ -57,8 +57,8 @@ let () =
                  let packages =
                    Tags.fold
                      (fun tag packages ->
-                         if String.is_prefix "pkg_" tag && not (String.is_suffix tag ".syntax") then
-                           String.after tag 4 :: packages
+                         if String.is_prefix "package(" tag then
+                           String.sub tag 8 (String.length tag - 9) :: packages
                         else
                           packages)
                      (tags_of_pathname "src/top/uTop_top.byte")