2015-07-28 16:32:19 +03:00
|
|
|
-- |
|
|
|
|
-- Module : Text.MegaParsec.ByteString
|
|
|
|
-- Copyright : © 2007 Paolo Martini, © 2015 MegaParsec contributors
|
|
|
|
-- License : BSD3
|
|
|
|
--
|
|
|
|
-- Maintainer : Mark Karpov <markkarpov@opmbx.org>
|
2015-07-29 11:38:32 +03:00
|
|
|
-- Stability : experimental
|
2015-07-28 16:32:19 +03:00
|
|
|
-- Portability : portable
|
|
|
|
--
|
|
|
|
-- Convenience definitions for working with 'C.ByteString's.
|
|
|
|
|
|
|
|
module Text.MegaParsec.ByteString
|
|
|
|
( Parser
|
|
|
|
, GenParser
|
|
|
|
, parseFromFile )
|
|
|
|
where
|
|
|
|
|
|
|
|
import Text.MegaParsec.Error
|
|
|
|
import Text.MegaParsec.Prim
|
|
|
|
|
|
|
|
import qualified Data.ByteString.Char8 as C
|
|
|
|
|
|
|
|
type Parser = Parsec C.ByteString ()
|
|
|
|
type GenParser t st = Parsec C.ByteString st
|
|
|
|
|
|
|
|
-- | @parseFromFile p filePath@ runs a strict bytestring parser @p@ on the
|
|
|
|
-- input read from @filePath@ using 'ByteString.Char8.readFile'. Returns
|
|
|
|
-- either a 'ParseError' ('Left') or a value of type @a@ ('Right').
|
|
|
|
--
|
2015-07-29 11:38:32 +03:00
|
|
|
-- > main = do
|
|
|
|
-- > result <- parseFromFile numbers "digits.txt"
|
|
|
|
-- > case result of
|
|
|
|
-- > Left err -> print err
|
|
|
|
-- > Right xs -> print (sum xs)
|
2015-07-28 16:32:19 +03:00
|
|
|
|
|
|
|
parseFromFile :: Parser a -> String -> IO (Either ParseError a)
|
2015-07-30 18:45:06 +03:00
|
|
|
parseFromFile p fname = runParser p () fname <$> C.readFile fname
|