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

module T6056 where
import T6056a

foo :: Int -> (Maybe Int, [Int])
foo x = smallerAndRest x [x]