“该值不是函数，无法应用。” F# 中的错误

Question

我试图运行以下 FParsec 代码，直到由于某种原因它停止工作：

我得到的错误是，

"The value is not a function and cannot be applied."

如果我注释掉最后一行代码（test ns ".."），它不会产生错误。关于如何解决这个问题有什么想法吗？

---

文本形式的源代码如下：

open System
open FParsec

let test p str =
    match run p str with
    | Success(result, _, _)   -> printfn "Success: %A" result
    | Failure(errorMsg, _, _) -> printfn "Failure: %s" errorMsg

type Namespace = { Name : string; Classes : string list; }

let classes : Parser<string list, unit> = 
  many (spaces >>. many1Satisfy isLetter .>> spaces)

let ns =
  pipe2 
    (spaces >>. skipString "namespace" >>. spaces >>. many1Satisfy isLetter)
    (spaces >>. skipString "{" >>. classes .>> skipString "}")
    (fun name classes -> { Name = name; Classes = classes } )

test ns "namespace abc { def ghi }"

Answer 1

没有人能猜出这里的答案。问题在于我决定从帖子中排除的其他内容：我的文件的标题：

#if INTERACTIVE
    #r @"C:\Users\xyz\Desktop\fparsec-main-default\Build\VS10\bin\Debug\FParsecCS.dll";
    #r @"C:\Users\xyz\Desktop\fparsec-main-default\Build\VS10\bin\Debug\FParsec.dll";
#endif

用 ;; 替换 ; 将使所有错误消失：

#if INTERACTIVE
    #r @"C:\Users\xyz\Desktop\fparsec-main-default\Build\VS10\bin\Debug\FParsecCS.dll";;
    #r @"C:\Users\xyz\Desktop\fparsec-main-default\Build\VS10\bin\Debug\FParsec.dll";;
#endif

Answer 2

红色下划线清楚地表明编译器认为 pipe2 正在接受四个参数 - 您应该能够通过在整个测试表达式周围添加括号来确认这一点，如下所示： (test ns "namespace abs { def ghi })

但我不确定为什么；尝试在 pipeline2 调用周围加上括号：

let ns = 
  (pipe2  
     (spaces >>. skipString "namespace" >>. spaces >>. many1Satisfy isLetter) 
     (spaces >>. skipString "{" >>. classes .>> skipString "}") 
     (fun name classes -> { Name = name; Classes = classes } ))