From a24f89f7ff6bd784844b852fb8e3d4e38e2e0d4f Mon Sep 17 00:00:00 2001
From: Florian Schroedl <flo.schroedl@gmail.com>
Date: Thu, 20 Jan 2022 17:00:00 +0100
Subject: [PATCH] Add whitespaceParser helper

---
 src/parser/parser_internals.nim | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/parser/parser_internals.nim b/src/parser/parser_internals.nim
index dba9dcb..c3137a2 100644
--- a/src/parser/parser_internals.nim
+++ b/src/parser/parser_internals.nim
@@ -177,6 +177,13 @@ proc newline*(parser: Parser): ParserResult =
   newlineParser(parser)
   .mapErr((x: ParserError) => x.setErrorExpectedField("Newline"))
 
+let whitespaceParser = choice(@[
+  ch(Whitespace),
+  newlineParser,
+])
+proc whitespace*(parser: Parser): ParserResult =
+  whitespaceParser(parser)
+  .mapErr((x: ParserError) => x.setErrorExpectedField("Whitespace"))
 
 # when isMainModule:
 #   proc getTokens(x: ParserResult): seq[string] =