[ghc-hetmet.git] / ghc / tests / typecheck / should_compile / tc069.hs

module ShouldSucceed where

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