util 0.1.12.0 → 0.1.13.0
raw patch · 3 files changed
+11/−4 lines, 3 filessetup-changedPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Util.List: padLeft :: Natural -> a -> [a] -> [a]
Files
- Setup.hs +0/−2
- Util/List.hs +9/−0
- util.cabal +2/−2
− Setup.hs
@@ -1,2 +0,0 @@-import Distribution.Simple-main = defaultMain
Util/List.hs view
@@ -2,8 +2,11 @@ module Util.List where +import Control.Applicative import Data.Bool import Data.List.NonEmpty (NonEmpty (..))+import Numeric.Natural+import Util splitWhen :: (a -> Bool) -> [a] -> NonEmpty [a] splitWhen p = go@@ -11,3 +14,9 @@ go = \ case [] -> []:|[] a:(go -> as:|ass) | p a -> []:|as:ass | True -> (a:as):|ass++padLeft :: Natural -> a -> [a] -> [a]+padLeft n a as = dropLengthOf as (replicate n a) <|> as+ where dropLengthOf [] as = as+ dropLengthOf _ [] = []+ dropLengthOf (_:bs) (_:as) = dropLengthOf bs as
util.cabal view
@@ -1,5 +1,5 @@ name: util-version: 0.1.12.0+version: 0.1.13.0 synopsis: Utilities -- description: license: BSD3@@ -27,4 +27,4 @@ , DeriveFunctor , DeriveFoldable , DeriveTraversable- ghc-options: -Wall+ ghc-options: -Wall -Wno-name-shadowing