path: root/testsuite/tests/simplCore/should_compile/T19246a.hs

module T19246a where

f :: Ord a => [a] -> ([a], a)
{-# INLINABLE f #-}
f xs = (ys, maximum ys)
  where
    ys = reverse . reverse . reverse . reverse . reverse . reverse $ xs