Added parseString

ekmett · Jan 14, 2013 · 3e07196 · 3e07196
1 parent 231c584
commit 3e07196
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Text/Trifecta/Parser.hs b/src/Text/Trifecta/Parser.hs
@@ -37,6 +37,7 @@ module Text.Trifecta.Parser
   -- * Parsing
   , parseFromFile
   , parseFromFileEx
+  , parseString
   , parseByteString
   , parseTest
   ) where
@@ -350,6 +351,9 @@ parseFromFileEx p fn = parseByteString p (Directed (UTF8.fromString fn) 0 0 0 0)
 parseByteString :: Show a => Parser a -> Delta -> UTF8.ByteString -> Result a
 parseByteString p d inp = starve $ feed inp $ stepParser (release d *> p) mempty mempty
 
+parseString :: Show a => Parser a -> Delta -> String -> Result a
+parseString p d inp = starve $ feed inp $ stepParser (release d *> p) mempty mempty
+
 parseTest :: Show a => Parser a -> String -> IO ()
 parseTest p s = case parseByteString p mempty (UTF8.fromString s) of
   Failure xs -> displayLn xs