From dce615a55969db3d44a5e85691dea12f89e94eb4 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Fri, 24 Feb 2017 13:42:53 +0000
Subject: [PATCH] Fix build of the aliases module

---
 src/gen_rules.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gen_rules.ml b/src/gen_rules.ml
index edb79a82..78d3c98b 100644
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@@ -1007,7 +1007,7 @@ module Gen(P : Params) = struct
     Option.iter alias_module ~f:(fun m ->
       let flags = Ocaml_flags.default () in
       build_module m
-        ~flags:{ flags with common = "-w" :: "-49" :: flags.common }
+        ~flags:{ flags with common = flags.common @ ["-w"; "-49"] }
         ~dir
         ~modules:(String_map.singleton m.name m)
         ~dep_graph:(Ml_kind.Dict.make_both (Build.return (String_map.singleton m.name [])))