From eb67d2a153da0aef6fa5f56f47bbb72ca29ddff5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 1 Jul 2019 18:21:00 +0200
Subject: netlists: fix pasto in builders.

---
 src/synth/netlists-builders.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/synth')

diff --git a/src/synth/netlists-builders.adb b/src/synth/netlists-builders.adb
index 462402948..bc5e4aa68 100644
--- a/src/synth/netlists-builders.adb
+++ b/src/synth/netlists-builders.adb
@@ -191,7 +191,7 @@ package body Netlists.Builders is
    begin
       Res := New_User_Module
         (Ctxt.Design, New_Sname_Artificial (Get_Identifier ("insert")),
-         Id_Extract, 2, 1, 1);
+         Id_Insert, 2, 1, 1);
       Ctxt.M_Insert := Res;
       Outputs := (0 => Create_Output ("o"));
       Inputs := (0 => Create_Input ("i"),
-- 
cgit v1.2.3