util 0.1.14.1 → 0.1.15.0

raw patch · 2 files changed

+20/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Util.hs +19/−1
• util.cabal +1/−1

@@ -6,6 +6,7 @@ import Control.Monad import Control.Monad.Fix import Control.Monad.Trans.State (state, evalState)+import Data.Bits import Data.Bool import Data.Foldable hiding (maximumBy, minimumBy) import Data.Function (($), flip)@@ -18,7 +19,7 @@ import Data.Monoid (Monoid (..)) import Numeric.Natural -import Prelude (Enum (..), Bounded, Eq, Ord, Read, Show, Traversable (..), Ordering (..), uncurry)+import Prelude (Enum (..), Bounded, Eq (..), Ord (..), Read, Show, Traversable (..), Ordering (..), Char, Int, Word, (+), (-), fromIntegral, uncurry)  infixr 3 &=& (&=&) :: Applicative p => (a -> p b) -> (a -> p c) -> a -> p (b, c)@@ -194,3 +195,20 @@  countFrom :: (Traversable f, Enum n) => n -> f a -> f (n, a) countFrom n = flip evalState n . traverse (\ a -> state $ \ k -> ((k, a), succ k))++some :: Alternative p => p a -> p (NonEmpty a)+some = liftA2 (:|) <*> many++digit :: Char -> Maybe Word+digit = go & \ n -> n <$ guard (fromIntegral n >= (0 :: Int))+  where+    go x+      | dec < 10 = dec+      | abcl < 26 = abcl + 10+      | abcu < 26 = abcu + 10+      | otherwise = complement 0+      where+        dec = fromIntegral $ fromEnum x - fromEnum '0'+        abcl = fromIntegral $ fromEnum x - fromEnum 'a'+        abcu = fromIntegral $ fromEnum x - fromEnum 'A'+{-# INLINE digit #-}

@@ -1,5 +1,5 @@ name:                util-version:             0.1.14.1+version:             0.1.15.0 synopsis:            Utilities -- description:          license:             BSD3