From 18abaa7def18b5320c0ac10bfba7fde688d444ca Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Fri, 31 Aug 2018 17:52:44 +0300
Subject: [PATCH] Simplify code using Module.dir

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/module.ml | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

diff --git a/src/module.ml b/src/module.ml
index bb19fb20..26fd5fc0 100644
--- a/src/module.ml
+++ b/src/module.ml
@@ -169,22 +169,12 @@ let wrapped_compat t =
     intf = None
   ; impl =
       Some (
-        let path =
-          match t.intf, t.impl with
-          | Some _, Some impl
-          | None, Some impl -> impl.path
-          | Some intf, _ -> intf.path
-          | None, None -> assert false
-        in
-        let path =
-          Path.L.relative (Path.parent_exn path)
-            [ ".wrapped_compat"
-            ; Path.basename path
-            ]
-        in
-        let (base, _) = Path.split_extension path in
         { syntax = OCaml
-        ; path = Path.extend_basename base ~suffix:".ml-gen"
+        ; path =
+          Path.L.relative (dir t)
+            [ ".wrapped_compat"
+            ; Name.to_string t.name ^ ".ml-gen"
+            ]
         }
       )
   }