cases 0.1.4 → 0.1.4.1

raw patch · 4 files changed

+79/−36 lines, 4 filesdep +gaugedep −base-preludedep −criteriondep −loch-thdep ~HTFdep ~attoparsecdep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: gauge

Dependencies removed: base-prelude, criterion, loch-th, placeholders

Dependency ranges changed: HTF, attoparsec, base, mwc-random, text

API changes (from Hackage documentation)

Files

benchmark/Benchmark.hs +1/−1
cases.cabal +10/−21
library/Cases.hs +1/−1
library/Cases/Prelude.hs +67/−13

benchmark/Benchmark.hs view

@@ -1,7 +1,7 @@ module Main where  import Prelude-import Criterion.Main+import Gauge.Main import qualified Cases as A import qualified Data.Text as B

cases.cabal view

@@ -1,7 +1,7 @@ name:   cases version:-  0.1.4+  0.1.4.1 synopsis:   A converter for spinal, snake and camel cases description:@@ -41,10 +41,9 @@   other-modules:     Cases.Prelude   build-depends:-    attoparsec >= 0.10 && < 0.14,-    text == 1.*,-    loch-th == 0.2.*,-    base-prelude >= 0.1.4 && < 2+    attoparsec >=0.13 && <0.15,+    base >=4.11 && <5,+    text ==1.*   default-extensions:     Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples   default-language:@@ -62,18 +61,11 @@     -threaded     "-with-rtsopts=-N"   build-depends:-    -- testing:     cases,-    QuickCheck,+    HTF >=0.14 && <0.15,     HUnit,-    HTF >= 0.13 && < 0.14,-    -- data:-    text,-    -- debugging:-    loch-th == 0.2.*,-    placeholders == 0.1.*,-    -- general:-    base >= 4.6 && < 5+    QuickCheck,+    rerebase ==1.*   default-extensions:     Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples   default-language:@@ -92,13 +84,10 @@     "-with-rtsopts=-N"   build-depends:     cases,-    mwc-random == 0.13.*,-    -- benchmarking:-    criterion == 1.*,-    -- -    rerebase == 1.*+    gauge >=0.2.5 && <0.3,+    mwc-random >=0.14 && <0.16,+    rerebase ==1.*   default-extensions:     Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples   default-language:     Haskell2010-

library/Cases.hs view

@@ -160,7 +160,7 @@ process :: CaseTransformer -> Delimiter -> T.Text -> T.Text process tr fo =    fromMaybe "" .-  either ($bug . ("Parse failure: " <>)) id .+  either (error . ("Parse failure: " <>)) id .   A.parseOnly (partsParser $ (. tr) . fo)  -- |

library/Cases/Prelude.hs view

@@ -2,9 +2,6 @@ (    module Exports, -  bug,-  bottom,-   (?:),   (|>),   (<|),@@ -14,17 +11,74 @@  -- base --------------------------import BasePrelude as Exports---- custom---------------------------import qualified Debug.Trace.LocationTH--bug = [e| $(Debug.Trace.LocationTH.failure) . (msg <>) |]-  where-    msg = "A \"cases\" package bug: " :: String+import Control.Applicative as Exports hiding (WrappedArrow(..))+import Control.Arrow as Exports hiding (first, second)+import Control.Category as Exports+import Control.Concurrent as Exports+import Control.Exception as Exports+import Control.Monad as Exports hiding (fail, mapM_, sequence_, forM_, msum, mapM, sequence, forM)+import Control.Monad.IO.Class as Exports+import Control.Monad.Fail as Exports+import Control.Monad.Fix as Exports hiding (fix)+import Control.Monad.ST as Exports+import Data.Bifunctor as Exports+import Data.Bits as Exports+import Data.Bool as Exports+import Data.Char as Exports+import Data.Coerce as Exports+import Data.Complex as Exports+import Data.Data as Exports+import Data.Dynamic as Exports+import Data.Either as Exports+import Data.Fixed as Exports+import Data.Foldable as Exports hiding (toList)+import Data.Function as Exports hiding (id, (.))+import Data.Functor as Exports+import Data.Functor.Compose as Exports+import Data.Int as Exports+import Data.IORef as Exports+import Data.Ix as Exports+import Data.List as Exports hiding (sortOn, isSubsequenceOf, uncons, concat, foldr, foldl1, maximum, minimum, product, sum, all, and, any, concatMap, elem, foldl, foldr1, notElem, or, find, maximumBy, minimumBy, mapAccumL, mapAccumR, foldl')+import Data.List.NonEmpty as Exports (NonEmpty(..))+import Data.Maybe as Exports+import Data.Monoid as Exports hiding (Alt, (<>))+import Data.Ord as Exports+import Data.Proxy as Exports+import Data.Ratio as Exports+import Data.Semigroup as Exports hiding (First(..), Last(..))+import Data.STRef as Exports+import Data.String as Exports+import Data.Traversable as Exports+import Data.Tuple as Exports+import Data.Unique as Exports+import Data.Version as Exports+import Data.Void as Exports+import Data.Word as Exports+import Debug.Trace as Exports+import Foreign.ForeignPtr as Exports+import Foreign.Ptr as Exports+import Foreign.StablePtr as Exports+import Foreign.Storable as Exports+import GHC.Conc as Exports hiding (orElse, withMVar, threadWaitWriteSTM, threadWaitWrite, threadWaitReadSTM, threadWaitRead)+import GHC.Exts as Exports (IsList(..), lazy, inline, sortWith, groupWith)+import GHC.Generics as Exports (Generic)+import GHC.IO.Exception as Exports+import GHC.OverloadedLabels as Exports+import Numeric as Exports+import Prelude as Exports hiding (Read, fail, concat, foldr, mapM_, sequence_, foldl1, maximum, minimum, product, sum, all, and, any, concatMap, elem, foldl, foldr1, notElem, or, mapM, sequence, id, (.))+import System.Environment as Exports+import System.Exit as Exports+import System.IO as Exports (Handle, hClose)+import System.IO.Error as Exports+import System.IO.Unsafe as Exports+import System.Mem as Exports+import System.Mem.StableName as Exports+import System.Timeout as Exports+import Text.ParserCombinators.ReadP as Exports (ReadP, readP_to_S, readS_to_P)+import Text.ParserCombinators.ReadPrec as Exports (ReadPrec, readPrec_to_P, readP_to_Prec, readPrec_to_S, readS_to_Prec)+import Text.Printf as Exports (printf, hPrintf)+import Unsafe.Coerce as Exports -bottom = [e| $bug "Bottom evaluated" |]  (?:) :: Maybe a -> a -> a maybeA ?: b = fromMaybe b maybeA