使用模式匹配展平列表时出错

Question

我试图自己想出一个能够压缩列表列表的函数。以下是我的代码

flatten :: [[t]] -> [t]
flatten [] = []
flatten x:xs = x ++ (flatten xs)

当我尝试编译上面的代码（包含在文件test.hs中）时，我收到以下错误：

tests.hs:3:1: Parse error in pattern: flatten

我做错了什么？