Simple Question

[Jerry, JiJie]

Hi, enlightenment much appreciated for my newbie question --

to achieve:

append' [ [1, 2], [3, 4], [5] ] 6 -> [ [1, 2], [3, 4], [5, 6] ]
append' [ ['1', '2'], ['3'] ] '4' -> [ ['1', '2'], ['3', '4'] ]
append' [ [True], [True] ] False -> [ [True], [True, False] ]

so I (naively) write:

18) append' :: [[a]] -> a -> [[a]]
19) append' [] y = [[y]]
20) append' x:xs y = [(init x:xs)] ++ [(tail xs)++[y]]

and ghc(5.02.3) says:

$ ghc p3a.hs 
p3a.hs:20: Parse error in pattern

thanx in advance!

-- 
Regards,
Jerry