Skip to content

Instantly share code, notes, and snippets.

@masaedw
Created October 8, 2011 01:38
Show Gist options
  • Select an option

  • Save masaedw/1271726 to your computer and use it in GitHub Desktop.

Select an option

Save masaedw/1271726 to your computer and use it in GitHub Desktop.
FSC: エラー FS0192: 内部エラー: dest_fun_typ: not a function type でコンパイラが落ちる
let main() =
let (@@) = id
[1;2;3;4;5]
|> Seq.map @@ fun x -> x * x
|> ignore
["a";"b";"c";"d"]
|> Seq.map @@ fun x -> x + x
|> Seq.iter @@ printf "%s"
let (@@) = id
let main() =
[1;2;3;4;5]
|> Seq.map @@ fun x -> x * x
|> ignore
["a";"b";"c";"d"]
|> Seq.map @@ fun x -> x + x
|> Seq.iter @@ printf "%s"
let main() =
let (@@) : ('a -> 'b) -> 'a -> 'b = id
[1;2;3;4;5]
|> Seq.map @@ fun x -> x * x
|> ignore
["a";"b";"c";"d"]
|> Seq.map @@ fun x -> x + x
|> Seq.iter @@ printf "%s"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment