anyTill use getInput instead of takeRest

haskell-github-trust · May 7, 2020 · 474b18d · 474b18d
1 parent f32aab6
commit 474b18d
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for replace-megaparsec
 
+## 1.4.1.0 -- 2020-05-07
+
+anyTill use getInput instead of takeRest
+
 ## 1.4.0.0 -- 2020-05-06
 
 __Running Parsers__: Add `splitCap` and `breakCap`.

diff --git a/replace-megaparsec.cabal b/replace-megaparsec.cabal
@@ -1,5 +1,5 @@
 name:                replace-megaparsec
-version:             1.4.0.0
+version:             1.4.1.0
 cabal-version:       1.18
 synopsis:            Find, replace, and split string patterns with Megaparsec parsers (instead of regex)
 homepage:            https://github.com/jamesdbrock/replace-megaparsec

diff --git a/src/Replace/Megaparsec.hs b/src/Replace/Megaparsec.hs
@@ -164,7 +164,7 @@ breakCap sep input =
   where
     pser = do
       (prefix, cap) <- anyTill sep
-      suffix <- takeRest
+      suffix <- getInput
       pure (prefix, cap, suffix)
 {-# INLINABLE breakCap #-}