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