path: root/testsuite/tests/typecheck/should_compile/tc069.hs

module ShouldSucceed where

x = 'a'
(y:ys) = ['a','b','c'] where p = x