[elpa] master 2cce1e3 37/60: Rename parsec-from-just to parsec-from-maybe

[Junpeng Qiu]

branch: master
commit 2cce1e3b8e8ba33d83dc8570b4ec587607a76213
Author: Junpeng Qiu <qjpchm...@gmail.com>
Commit: Junpeng Qiu <qjpchm...@gmail.com>

    Rename parsec-from-just to parsec-from-maybe
---
 parsec-tests.el |    4 ++--
 parsec.el       |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/parsec-tests.el b/parsec-tests.el
index 471957f..661411f 100644
--- a/parsec-tests.el
+++ b/parsec-tests.el
@@ -427,7 +427,7 @@
     (parsec-with-input "abcdef"
       (parsec-collect-as-string
        (parsec-str "abc")
-       (parsec-from-just (parsec-optional-maybe (parsec-ch ?-)))
+       (parsec-from-maybe (parsec-optional-maybe (parsec-ch ?-)))
        (parsec-str "def")))
     "abcdef"))
   (should
@@ -435,7 +435,7 @@
     (parsec-with-input "abc-def"
       (parsec-collect-as-string
        (parsec-str "abc")
-       (parsec-from-just (parsec-optional-maybe (parsec-ch ?-)))
+       (parsec-from-maybe (parsec-optional-maybe (parsec-ch ?-)))
        (parsec-str "def")))
     "abc-def")))
 
diff --git a/parsec.el b/parsec.el
index 00073f6..295aea8 100644
--- a/parsec.el
+++ b/parsec.el
@@ -495,7 +495,7 @@ The args can be in the following forms:
        (consp x)
        (eq (car x) 'Just))))
 
-(defun parsec-from-just (x)
+(defun parsec-from-maybe (x)
   "Retrieve the value from Maybe monad X.
 If X is `(Just . p)', return p. Otherwise return nil."
   (and (consp x)