exon 1.2.0.0 → 1.3.0.0
raw patch · 5 files changed
+18/−20 lines, 5 filesdep −type-errors-prettydep ~flatparsedep ~generics-sopdep ~ghc-hs-metaPVP ok
version bump matches the API change (PVP)
Dependencies removed: type-errors-pretty
Dependency ranges changed: flatparse, generics-sop, ghc-hs-meta, incipit-base
API changes (from Hackage documentation)
Files
- exon.cabal +8/−9
- lib/Exon/Class/Exon.hs +8/−7
- lib/Exon/Class/ToSegment.hs +1/−2
- lib/Exon/SkipWs.hs +1/−1
- test/Exon/Test/ShowsPrecTest.hs +0/−1
exon.cabal view
@@ -1,11 +1,11 @@ cabal-version: 2.2 --- This file has been generated from package.yaml by hpack version 0.34.7.+-- This file has been generated from package.yaml by hpack version 0.35.0. -- -- see: https://github.com/sol/hpack name: exon-version: 1.2.0.0+version: 1.3.0.0 synopsis: Customizable Quasiquote Interpolation description: See https://hackage.haskell.org/package/exon/docs/Exon.html category: String@@ -106,12 +106,11 @@ ghc-options: -Wall -Wredundant-constraints -Wincomplete-uni-patterns -Wmissing-deriving-strategies -Widentities -Wunused-packages build-depends: base >=4.12 && <5- , flatparse >=0.3.5.1- , generics-sop >=0.5.1.1- , ghc-hs-meta >=0.1- , incipit-base >=0.2+ , flatparse >=0.3.5.1 && <0.4+ , generics-sop >=0.5.1.1 && <0.6+ , ghc-hs-meta ==0.1.*+ , incipit-base ==0.5.* , template-haskell- , type-errors-pretty >=0.0.1.1 mixins: base hiding (Prelude) , incipit-base (IncipitBase as Prelude)@@ -197,7 +196,7 @@ base >=4.12 && <5 , exon , hedgehog- , incipit-base >=0.2+ , incipit-base ==0.5.* , tasty , tasty-hedgehog , template-haskell@@ -279,7 +278,7 @@ base >=4.12 && <5 , criterion , exon- , incipit-base >=0.2+ , incipit-base ==0.5.* mixins: base hiding (Prelude) , incipit-base (IncipitBase as Prelude)
lib/Exon/Class/Exon.hs view
@@ -5,7 +5,6 @@ import Data.ByteString.Builder (toLazyByteString) import qualified Data.Text.Lazy.Builder as Text import Data.Text.Lazy.Builder (toLazyText)-import Text.Show (showString) import Exon.Class.Newtype (OverNewtypes, overNewtypes) import Exon.Data.Result (Result (Empty, Result))@@ -195,12 +194,14 @@ -- -- @since 1.1.0.0 exonConcat :: NonEmpty (Result builder) -> Result builder- exonConcat =- foldl1 \case- Empty -> id- Result z -> \case- Empty -> Result z- Result a -> exonAppend @result @builder z a+ exonConcat (h :| t) =+ foldl folder h t+ where+ folder = \case+ Empty -> id+ Result z -> \case+ Empty -> Result z+ Result a -> exonAppend @result @builder z a {-# inline exonConcat #-} instance {-# overlappable #-} (
lib/Exon/Class/ToSegment.hs view
@@ -4,9 +4,8 @@ module Exon.Class.ToSegment where import GHC.TypeLits (ErrorMessage)-import Generics.SOP (SOP (SOP), unZ, I (I), NP ((:*), Nil))+import Generics.SOP (I (I), NP (Nil, (:*)), SOP (SOP), unZ) import Generics.SOP.GGP (GCode, GFrom, gfrom)-import Type.Errors.Pretty (type (%), type (<>)) import Exon.Generic (IsNewtype)
lib/Exon/SkipWs.hs view
@@ -32,7 +32,7 @@ Empty {-# inline exonWhitespace #-} --- |A variant of 'exon' that ignores all literal whitespace in the quote (not in interpolated expressions).+-- |A variant of 'Exon.exon' that ignores all literal whitespace in the quote (not in interpolated expressions). -- -- > [intron|x|] === skipWs [exonws|x|] --
test/Exon/Test/ShowsPrecTest.hs view
@@ -1,7 +1,6 @@ module Exon.Test.ShowsPrecTest where import Hedgehog (TestT, (===))-import Text.Show (showParen, showsPrec) import Exon.Quote (exon)