1 files changed, 2 insertions, 7 deletions
diff --git a/extra.lisp b/extra.lisp
index 81776a7..024bd3b 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -1,13 +1,8 @@
 (in-package #:monparser)
 
 (defparameter whitespace
-  (many (unit #'char:whitespace?)))
-
-(defparameter end-of-input
-  (lambda (input)
-    (if (cursed:has-data? input)
-      (make-failure :place input :message "Didn't reach end of input.")
-      (make-parsing :tree nil :start input :end input))))
+  (many (unit (or (char= it #\Space)
+                  (not (graphic-char-p it))))))
 
 (defun repeat (p min &optional (max 0))
   (if (> min 0)