Skip to content

Commit f40d33c

Browse files
committed
reverting 4.1 compiler changes
1 parent 9d13541 commit f40d33c

File tree

1 file changed

+8
-9
lines changed

1 file changed

+8
-9
lines changed

src/FsTweet.Web/Json.fs

Lines changed: 8 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -14,16 +14,15 @@ let parse req =
1414
|> Json.tryParse
1515
|> ofChoice
1616

17-
let inline deserialize2< ^a when (^a or FromJsonDefaults)
18-
: (static member FromJson: ^a -> ^a Json)>
19-
req : Result< ^a, string> =
20-
parse req
21-
|> bind (fun json ->
22-
json
23-
|> Json.tryDeserialize
24-
|> ofChoice)
25-
2617
// Note: Compiles only with F# 4.1 or above
18+
// let inline deserialize< ^a when (^a or FromJsonDefaults)
19+
// : (static member FromJson: ^a -> ^a Json)>
20+
// req : Result< ^a, string> =
21+
// parse req
22+
// |> bind (fun json ->
23+
// json
24+
// |> Json.tryDeserialize
25+
// |> ofChoice)
2726

2827
// For F# 4.0 and below
2928
(* If you are using F# 4.1 or above, delete the this function and uncomment the above function*)

0 commit comments

Comments
 (0)