许多定义让 - 为什么错误

Question

看看它：

e >>= f = StOut (\n ->  let     (a, n1, s1) = (unStOut e) n
                                (b, n2, s2) = (unStOut (f a)) n1
                        in      (b, n2, s1++s2))

ghci抱怨：parse error on input ‘=’ 但是，对于

e >>= f = StOut (\n ->  let     (a, n1, s1) = (unStOut e) n
                            in  (a, n1, s1))

ghci喜欢它:) 错误在哪里？

Answer 1

问题可能不在于该代码片段：lambdabot接受@letlpaste 4789689228613124096就好了（将http://lpaste.net/4789689228613124096加载到其ghci中）。尝试粘贴导致此错误的整个代码文件。