unused variable warning in view pattern is wrong

{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE ViewPatterns #-}
test x = let (r,(r++) -> rs) = x in rs

Warning: Defined but not used: `r'

This seems only to happen in let (not in function clauses, or in lambdas, or in case).

Trac metadata

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information