looksee-trip 0.6.0 → 0.7.0

raw patch · 2 files changed

+17/−15 lines, 2 filesdep +prop-unitdep ~daytripperdep ~lookseedep ~textPVP ok

version bump matches the API change (PVP)

Dependencies added: prop-unit

Dependency ranges changed: daytripper, looksee, text

API changes (from Hackage documentation)

Files

• looksee-trip.cabal +7/−6
• src/Test/Looksee/Trip.hs +10/−9

@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.36.0.+-- This file has been generated from package.yaml by hpack version 0.37.0. -- -- see: https://github.com/sol/hpack  name:           looksee-trip-version:        0.6.0+version:        0.7.0 synopsis:       A simple text parser with decent errors description:    Please see the README on GitHub at <https://github.com/ejconlon/looksee#readme> category:       Parsing@@ -17,7 +17,7 @@ license:        BSD3 build-type:     Simple tested-with:-    GHC == 9.6.3+    GHC == 9.8.4 extra-source-files:     README.md @@ -62,8 +62,9 @@   ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wpartial-fields -Wredundant-constraints -fno-warn-unused-top-binds   build-depends:       base >=4.12 && <5-    , daytripper ==0.3.*-    , looksee ==0.6.*+    , daytripper ==0.4.*+    , looksee ==0.7.*     , prettyprinter ==1.7.*-    , text ==2.0.*+    , prop-unit ==0.2.*+    , text >=2.0 && <2.2   default-language: GHC2021

@@ -14,35 +14,36 @@ import Looksee (Err, Parser, ParserT, parse, parseT) import Prettyprinter (Pretty (..), defaultLayoutOptions, layoutPretty) import Prettyprinter.Render.Text (renderStrict)-import Test.Daytripper (Expect, MonadExpect (..), expectDuring, mkExpect)+import PropUnit (MonadTest, (===))+import Test.Daytripper (Expect, expectDuring, mkExpect)  prettyText :: (Pretty a) => a -> Text prettyText = renderStrict . layoutPretty defaultLayoutOptions . pretty  type Cmp e m a = Maybe a -> Either (Err e) a -> m () -cmpEq :: (MonadExpect m, Eq e, Show e, Eq a, Show a) => Cmp e m a-cmpEq ma ea = expectAssertEq (maybe (Left Nothing) Right ma) (either (Left . Just) Right ea)+cmpEq :: (MonadTest m, Eq e, Show e, Eq a, Show a) => Cmp e m a+cmpEq ma ea = maybe (Left Nothing) Right ma === either (Left . Just) Right ea  type ExpectP e m a = Expect m a Text (Either (Err e) a) -expectParse :: (MonadExpect m) => (a -> Text) -> Parser e a -> Cmp e m a -> ExpectP e m a+expectParse :: (MonadTest m) => (a -> Text) -> Parser e a -> Cmp e m a -> ExpectP e m a expectParse printer parser = mkExpect enc dec  where   enc = pure . printer   dec = pure . parse parser -expectParsePretty :: (MonadExpect m, Pretty a) => Parser e a -> Cmp e m a -> ExpectP e m a+expectParsePretty :: (MonadTest m, Pretty a) => Parser e a -> Cmp e m a -> ExpectP e m a expectParsePretty = expectParse prettyText -expectParseT :: (MonadExpect m) => (a -> Text) -> ParserT e m a -> Cmp e m a -> ExpectP e m a+expectParseT :: (MonadTest m) => (a -> Text) -> ParserT e m a -> Cmp e m a -> ExpectP e m a expectParseT printer parser = mkExpect enc dec  where   enc = pure . printer   dec = parseT parser -expectParseTPretty :: (MonadExpect m, Pretty a) => ParserT e m a -> Cmp e m a -> ExpectP e m a+expectParseTPretty :: (MonadTest m, Pretty a) => ParserT e m a -> Cmp e m a -> ExpectP e m a expectParseTPretty = expectParseT prettyText -expectRendered :: (MonadExpect m) => Text -> ExpectP e m a -> ExpectP e m a-expectRendered = expectDuring . const . flip expectAssertEq+expectRendered :: (MonadTest m) => Text -> ExpectP e m a -> ExpectP e m a+expectRendered = expectDuring . const . flip (===)