chuchu 0.2 → 0.2.1
raw patch · 3 files changed
+10/−3 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Test.Chuchu.Parser: try :: ChuchuParser a -> ChuchuParser a
Files
- chuchu.cabal +1/−1
- src/Test/Chuchu/Parser.hs +8/−1
- src/Test/Chuchu/Types.hs +1/−1
chuchu.cabal view
@@ -1,5 +1,5 @@ name: chuchu-version: 0.2+version: 0.2.1 cabal-version: >= 1.8 build-type: Simple license: OtherLicense
src/Test/Chuchu/Parser.hs view
@@ -16,12 +16,14 @@ , text , wildcard , email+ , try ) where import Control.Applicative hiding ((<|>)) import Control.Monad-import Text.Parsec+import Text.Parsec hiding (try) import qualified Data.Text as T+import qualified Text.Parsec as Parsec import Test.Chuchu.Types (ChuchuParser(..)) import Test.Chuchu.Email@@ -54,3 +56,8 @@ -- @alphaNum \<|> oneOf \"!#$%&\'*+-\/=?^_\`{|}~.\"@. email :: ChuchuParser T.Text email = T.pack <$> ChuchuParser addrSpecSimple+++-- | Same as Parsec's 'Parsec.try' but for 'ChuchuParser'.+try :: ChuchuParser a -> ChuchuParser a+try (ChuchuParser x) = ChuchuParser (Parsec.try x)
src/Test/Chuchu/Types.hs view
@@ -28,7 +28,7 @@ deriving (Functor, Applicative, Alternative, Monad, MonadPlus) instance (a ~ ()) => IsString (ChuchuParser a) where- fromString s = ChuchuParser (string s >> return ())+ fromString s = ChuchuParser (try (string s) >> return ()) -- | The most common use case where the return value of the Monad is ignored.