chuchu 0.2.1 → 0.3

raw patch · 2 files changed

+9/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• chuchu.cabal +1/−1
• src/Test/Chuchu/Parser.hs +8/−3

@@ -1,5 +1,5 @@ name: chuchu-version: 0.2.1+version: 0.3 cabal-version: >= 1.8 build-type: Simple license: OtherLicense

@@ -20,7 +20,6 @@   ) where  import Control.Applicative hiding ((<|>))-import Control.Monad import Text.Parsec hiding (try) import qualified Data.Text as T import qualified Text.Parsec as Parsec@@ -29,26 +28,32 @@ import Test.Chuchu.Email import qualified Test.Chuchu.Parsec as P + -- | Parses a floating point number, with the same syntax as accepted by -- Haskell. number :: ChuchuParser Double number = ChuchuParser $ nofToDouble <$> P.natFloat + nofToDouble :: Either Integer Double -> Double nofToDouble (Left i) = fromInteger i nofToDouble (Right d) = d + -- | Parses an integer. int :: ChuchuParser Integer int = ChuchuParser P.int + -- | Parses a quoted string, with the same syntax as accepted by Haskell. text :: ChuchuParser T.Text text = T.pack <$> ChuchuParser P.stringLiteral + -- | Parses anything until the string passed as parameter, and also the string.-wildcard :: T.Text -> ChuchuParser ()-wildcard = ChuchuParser . void . manyTill anyChar . string . T.unpack+wildcard :: T.Text -> ChuchuParser T.Text+wildcard = fmap T.pack . ChuchuParser . manyTill anyChar . Parsec.try . string . T.unpack+  -- | Parses a simplified e-mail address and return everything that was parsed as -- a simple 'T.Text'.  This is a very simplified parser for e-mail, which does