-- Trac #3234
-- Should give a use of foldr/single

module Foo where 

x = ['x'] ++ "haskell"