path: root/testsuite/tests/parser/prog001/Read007.hs

module ShouldCompile where

import Read006

myLength :: MyList a -> Int
myLength Empty = 0
myLength (x ::: xs) = 1 + myLength xs