Extract representation in dedicated library

4 files changed, 0 insertions, 61 deletions

diff --git a/src/lib/sounds/repr.ml b/src/lib/sounds/repr.ml
deleted file mode 100644
index 72cf95d..0000000
--- a/src/lib/sounds/repr.ml
+++ /dev/null
@@ -1,58 +0,0 @@
-type t = string
-
-let none = ""
-
-let a = "a"
-and a_nasal = "@"
-
-and e_opened = "E"
-and e_closed = "e"
-and schwa = "°"
-
-and eu = "9"
-
-and o = "o"
-and o_nasal = "§"
-
-and i = "i"
-and i_nasal = "5"
-and y = "y"
-and y_nasal = "1"
-
-and u = "u"
-
-and p = "p"
-and b = "b"
-and t = "t"
-and d = "d"
-
-and k = "k"
-and g = "g"
-
-and f = "f"
-and v = "v"
-
-and ch = "S"
-and j = "Z"
-
-and s = "s"
-and z = "z"
-
-and m = "m"
-and n = "n"
-
-and l = "L"
-and r = "R"
-
-and semi_voyel_w = "w"
-and semi_voyel_y = "j"
-
-let muted
-  : t -> t
-  = fun t ->
-    Printf.sprintf "(%s)" t
-
-let diphtongue
-  : t -> t -> t
-  = fun t1 t2 ->
-    Printf.sprintf "[%s%s]" t1 t2
diff --git a/src/lib/sounds/repr.mli b/src/lib/sounds/repr.mli
deleted file mode 100644
index 7e2e035..0000000
--- a/src/lib/sounds/repr.mli
+++ /dev/null
@@ -1 +0,0 @@
-include Sig.REPR with type t = String.t
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml
index e5f5d29..088485a 100644
--- a/src/lib/sounds/sounds.ml
+++ b/src/lib/sounds/sounds.ml
@@ -1,5 +1,4 @@
 module Sig = Sig
-module Repr = Repr
 
 type kind =
   | None
diff --git a/src/lib/sounds/sounds.mli b/src/lib/sounds/sounds.mli
index 8a07db3..8c11488 100644
--- a/src/lib/sounds/sounds.mli
+++ b/src/lib/sounds/sounds.mli
@@ -1,5 +1,4 @@
 module Sig = Sig
-module Repr = Repr
 
 type t
 val muted : t -> t