Advertisement
Guest User

Untitled

a guest
Feb 27th, 2017
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.79 KB | None | 0 0
  1. type ToOptionString = ToOptionString
  2. with
  3. static member ($) (_: ToOptionString, l: string) : Option<string> = Some l
  4. static member ($) (_: ToOptionString, l: Option<string>) : Option<string> = l
  5. static member ($) (_: ToOptionString, l: Option<int>) : Option<string> =
  6. l |>> sprintf "%A"
  7.  
  8. let inline toOptionString v = ToOptionString $ v
  9.  
  10. let x = toOptionString (Some 1)
  11.  
  12. A unique overload for method 'op_Dollar' could not be determined based on
  13. type information prior to this program point. A type annotation may be
  14. needed. Candidates:
  15. static member ToOptionString.( $ ) : ToOptionString * l:Option<int> -> Option<string>,
  16. static member ToOptionString.( $ ) : ToOptionString * l:Option<string> -> Option<string>
  17.  
  18. val toOptionString : v:'a -> '_arg3 (requires member ( $ ))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement