testsuite/tests/deSugar/should_compile/ds052.hs


1
2
3
4
5
6
7

{-# OPTIONS -fwarn-incomplete-patterns #-}
module ShouldCompile where

-- should *not* produce a warning about non-exhaustive patterns
lazyZip:: [a] -> [b] -> [(a, b)]
lazyZip []     _       = []
lazyZip (x:xs) ~(y:ys) = (x, y):lazyZip xs ys