Avoid a zip that breaks fusion
This commit is contained in:
parent
a223a7a5a5
commit
962fad038c
|
@ -3088,7 +3088,7 @@ checkUnmatchableCases params t =
|
||||||
return $ warn (getId candidate) 2195
|
return $ warn (getId candidate) 2195
|
||||||
"This pattern will never match the case statement's word. Double check them."
|
"This pattern will never match the case statement's word. Double check them."
|
||||||
|
|
||||||
tupMap f l = zip l (map f l)
|
tupMap f l = map (\x -> (x, f x)) l
|
||||||
checkDoms ((glob, Just x), rest) =
|
checkDoms ((glob, Just x), rest) =
|
||||||
case filter (\(_, p) -> x `pseudoGlobIsSuperSetof` p) valids of
|
case filter (\(_, p) -> x `pseudoGlobIsSuperSetof` p) valids of
|
||||||
((first,_):_) -> do
|
((first,_):_) -> do
|
||||||
|
|
Loading…
Reference in New Issue