From 2d14c9b4363b827604bead5c3a378630087d8a9d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 30 Jul 2011 18:08:02 -0700
Subject: Added nonspaceChar to Text.Pandoc.Parsing.

---
 src/Text/Pandoc/Parsing.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 700076a10..eaf0c0f67 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -33,6 +33,7 @@ module Text.Pandoc.Parsing ( (>>~),
                              notFollowedBy',
                              oneOfStrings,
                              spaceChar,
+                             nonspaceChar,
                              skipSpaces,
                              blankline,
                              blanklines,
@@ -122,6 +123,10 @@ oneOfStrings listOfStrings = choice $ map (try . string) listOfStrings
 spaceChar :: CharParser st Char
 spaceChar = satisfy $ \c -> c == ' ' || c == '\t'
 
+-- | Parses a nonspace, nonnewline character.
+nonspaceChar :: CharParser st Char
+nonspaceChar = satisfy $ \x -> x /= '\t' && x /= '\n' && x /= ' ' && x /= '\r'
+
 -- | Skips zero or more spaces or tabs.
 skipSpaces :: GenParser Char st ()
 skipSpaces = skipMany spaceChar
-- 
cgit v1.2.3