fast hack to fix decompilation with -nodb with the new getter.prefixes format

[helm.git] / helm / ocaml / library / libraryClean.ml

diff --git a/helm/ocaml/library/libraryClean.ml b/helm/ocaml/library/libraryClean.ml
index d09769fc20628e95f2c9ff65ed24c6f62803d2ce..6f72ff495b77edf2389397863bf56bd7de3778b3 100644 (file)
--- 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