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 _ [] [] = []