From 267f61f3402fa98cfc257d03741762519825b723 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 14 Jul 2020 11:44:05 +0200
Subject: [PATCH] =?UTF-8?q?LARYNGEALS=20ARE=20NO=20RESONANTS=20=E2=80=93?=
 =?UTF-8?q?=20cuny?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 pie.cabal        | 4 +++-
 src/Lib.hs       | 2 +-
 src/Phonology.hs | 8 ++++----
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/pie.cabal b/pie.cabal
index c5c2da0..d77dcbe 100644
--- a/pie.cabal
+++ b/pie.cabal
@@ -27,7 +27,9 @@ source-repository head
 
 library
   exposed-modules:
-      Lib
+      Lib,
+      Phonology,
+      Util
   other-modules:
       Paths_pie
   hs-source-dirs:
diff --git a/src/Lib.hs b/src/Lib.hs
index 60fa039..4f8a367 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -53,7 +53,7 @@ syllabify = replaceSublist [True, True] [True, False]  -- replace VV by VC
                                                       . foldr isSonant []
  where
   hasToBeSyllabic p = features p == Vowel
-  canBeSyllabic p = features p `elem` [Vowel, Resonant, Laryngeal]
+  canBeSyllabic p = features p `elem` [Vowel, Resonant]
   isSonant current xs = case xs of
     []                   -> [canBeSyllabic current] -- make last phoneme in word syllabic
     previousIsSonant : _ -> if previousIsSonant
diff --git a/src/Phonology.hs b/src/Phonology.hs
index 92db747..aa1bd48 100644
--- a/src/Phonology.hs
+++ b/src/Phonology.hs
@@ -97,9 +97,9 @@ showSyllabic phoneme syllabic = case (phoneme, syllabic) of
   (M , True ) -> "ṃ"
   (R , True ) -> "ṛ"
   (L , True ) -> "ḷ"
-  (H1, True ) -> "ə₁"
-  (H2, True ) -> "ə₂"
-  (H3, True ) -> "ə₃"
-  (H , True ) -> "ə"
+  -- (H1, True ) -> "ə₁"
+  -- (H2, True ) -> "ə₂"
+  -- (H3, True ) -> "ə₃"
+  -- (H , True ) -> "ə"
   _           -> show phoneme