X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Flibrary%2FlibraryClean.ml;h=6f72ff495b77edf2389397863bf56bd7de3778b3;hb=7be6aeb94aa8da17732511a4844bd108976f947f;hp=d09769fc20628e95f2c9ff65ed24c6f62803d2ce;hpb=aa0d60227b785da3355b31519ba11cb4fbd2c925;p=helm.git

diff --git a/helm/ocaml/library/libraryClean.ml b/helm/ocaml/library/libraryClean.ml
index d09769fc2..6f72ff495 100644
--- a/helm/ocaml/library/libraryClean.ml
+++ b/helm/ocaml/library/libraryClean.ml
@@ -140,7 +140,7 @@ let moo_root_dir = lazy (
           match
             Str.split (Str.regexp "[ \t\r\n]+") (HExtlib.trim_blanks pair)
           with
-          | [a;b] -> a, b
+          | a::b::_ -> a, b
           | _ -> assert false)
         (Helm_registry.get_list Helm_registry.string "getter.prefix"))
   in