sound-change 0.1.0.0 → 0.1.0.1

raw patch · 5 files changed

+24/−22 lines, 5 filesdep ~containersdep ~megaparsecdep ~parser-combinators

Dependency ranges changed: containers, megaparsec, parser-combinators, sound-change, template-haskell

Files

• CHANGELOG.md +5/−0
• sound-change.cabal +7/−7
• src/Language/Change.hs +8/−8
• src/Language/Change/Quote.hs +4/−4
• test/Language/ChangeSpec.hs +0/−3

@@ -1,5 +1,10 @@ # Revision history for sound-change +## 0.1.0.1 -- 2026-06-19++* Tested with newest versions of dependencies and updated version bounds.+* Removed unused imports.+ ## 0.1.0.0 -- 2023-10-13  * First version. Released on an unsuspecting world.

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               sound-change-version:            0.1.0.0+version:            0.1.0.1 author:             Owen Bechtel maintainer:         ombspring@gmail.com @@ -53,12 +53,12 @@    build-depends:     base >= 4.9.0.0 && < 5,-    containers >= 0.2.0.0 && < 0.8,+    containers >= 0.2.0.0 && < 0.9,     syb >= 0.1.0.0 && < 0.8,-    template-haskell >= 2.5.0.0 && < 2.22,-    megaparsec >= 9.0.0 && < 10,-    parser-combinators >= 0.4.0 && < 2,-    mtl >= 1.0 && < 2.4+    template-haskell >= 2.5.0.0 && < 2.25,+    megaparsec >= 9.0.0 && < 9.9,+    parser-combinators >= 0.4.0 && < 1.4,+    mtl >= 1.0 && < 2.4,  test-suite test   type:             exitcode-stdio-1.0@@ -70,7 +70,7 @@   other-modules: Language.ChangeSpec    build-depends:-    base, hspec, containers, sound-change+    base, hspec, containers, sound-change == 0.1.0.1    build-tool-depends:     hspec-discover:hspec-discover

@@ -23,13 +23,13 @@ import qualified Data.Map as Map import Data.Set (Set) import Data.Map (Map)-import Data.List (find, foldl', scanl')+import Data.List (find, scanl')  -- | A finite set, or the complement of a finite set. data PSet a = PSet (Set a) Bool   deriving (Show) --- | Test for membership in a 'PSet'.+-- | Test for membership in a t'PSet'. -- -- @ -- member x (PSet set b) = 'Set.member' x set == b@@ -37,15 +37,15 @@ member :: Ord a => a -> PSet a -> Bool member x (PSet set b) = Set.member x set == b --- | A single component of an 'Env'.+-- | A single component of an t'Env'. data Pattern a-  = One (PSet a)      -- ^ Matches one occurrence of a 'PSet' member.-  | Optional (PSet a) -- ^ Matches zero or one occurences of a 'PSet' member.-  | Many (PSet a)     -- ^ Matches zero or more occurences of a 'PSet' member.+  = One (PSet a)      -- ^ Matches one occurrence of a t'PSet' member.+  | Optional (PSet a) -- ^ Matches zero or one occurences of a t'PSet' member.+  | Many (PSet a)     -- ^ Matches zero or more occurences of a t'PSet' member.   deriving (Show)  -- | An environment in which a phoneme (or in general, a value of type @a@), might occur.--- An 'Env' is specified by two lists of patterns: the environment before the phoneme (ordered from nearest to farthest), and the environment after.+-- An t'Env' is specified by two lists of patterns: the environment before the phoneme (ordered from nearest to farthest), and the environment after. data Env a = Env [Pattern a] [Pattern a]    deriving (Show) @@ -71,7 +71,7 @@       testPatterns list ps     || testPatterns list (One set : Many set : ps) --- | Match two lists of phonemes against an 'Env'.+-- | Match two lists of phonemes against an t'Env'. testEnv :: Ord a => [a] -> [a] -> Env a -> Bool testEnv left right (Env psL psR) =   testPatterns left psL && testPatterns right psR

@@ -36,7 +36,7 @@ import Language.Haskell.TH.Lib (appE, conE, varE) import Data.Generics.Aliases (extQ) -import Language.Change (Change(..), Env(..), PSet(..), Pattern(..), applyChanges)+import Language.Change (Change(..), Env(..), PSet(..), Pattern(..))  data CharS   = Lit Char@@ -203,7 +203,7 @@ total p = allowNewlines spaces >> (p <* M.eof)  {-|-Compile a sound change specification into a value of type 'Change' 'Char'.+Compile a sound change specification into a value of type t'Change' 'Char'.  Example: @@ -285,7 +285,7 @@   }  {-|-Compile a sequence of sound changes into a value of type @['Change' 'Char']@.+Compile a sequence of sound changes into a value of type @[t'Change' 'Char']@. Each change is preceded by a bullet @*@. For example:  @@@ -298,7 +298,7 @@   |] @ -For example, @'applyChanges' changes "ikt"@ would return @"içt"@.+For example, @'Language.Change.applyChanges' changes "ikt"@ would return @"içt"@. -}  chs :: QuasiQuoter

@@ -16,8 +16,6 @@  import Language.Change.Quote (ch, chs) -import Debug.Trace- spec :: Spec spec = do   describe "Language.Change.member" do@@ -138,7 +136,6 @@         y > i / _                   // unconditional shift                        |] -      traceShowM change1       applyChange change1 "uni" `shouldBe` "yni"       applyChange change1 "yni" `shouldBe` "ini"       applyChange change1 "esoki" `shouldBe` "eski"