module HaskellWorks.Data.Json.Simd.Internal.List
  ( zipPadded
  ) where

zipPadded :: a -> b -> [a] -> [b] -> [(a, b)]
zipPadded :: forall a b. a -> b -> [a] -> [b] -> [(a, b)]
zipPadded a
a b
b (a
c:[a]
cs) (b
d:[b]
ds) = (a
c, b
d)forall a. a -> [a] -> [a]
:forall a b. a -> b -> [a] -> [b] -> [(a, b)]
zipPadded a
a b
b [a]
cs [b]
ds
zipPadded a
a b
b []     (b
d:[b]
ds) = (a
a, b
d)forall a. a -> [a] -> [a]
:forall a b. a -> b -> [a] -> [b] -> [(a, b)]
zipPadded a
a b
b [] [b]
ds
zipPadded a
a b
b (a
c:[a]
cs) []     = (a
c, b
b)forall a. a -> [a] -> [a]
:forall a b. a -> b -> [a] -> [b] -> [(a, b)]
zipPadded a
a b
b [a]
cs []
zipPadded a
_ b
_ []     []     = []