Skip to content

Commit 5a6b7df

Browse files
committed
Fix build by adding #nowarn pragmas
Replace Validation active pattern usage in ChoiceTests
1 parent 129f1b9 commit 5a6b7df

File tree

4 files changed

+6
-2
lines changed

4 files changed

+6
-2
lines changed

src/FSharpx.Extras/CSharpCompat.fs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,8 @@ open FSharpx.Functional
1010
open FSharpx
1111
open Microsoft.FSharp.Control.WebExtensions
1212

13+
#nowarn "FS0044"
14+
1315
[<assembly:Extension>]
1416
do()
1517

tests/FSharpx.Tests/ChoiceTests.fs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -59,9 +59,9 @@ let ChoiceFolding() =
5959
actions |> Choice.foldM folder startingPosition
6060

6161
match finalPosition with
62-
| Validation.Success (x,y) ->
62+
| Choice1Of2 (x,y) ->
6363
printfn "final position: %f,%f" x y
64-
| Validation.Failure error ->
64+
| Choice2Of2 error ->
6565
printfn "error: %s" error
6666
Assert.Fail("should not have failed: {0}", error)
6767

tests/FSharpx.Tests/ValidationExample.fs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,7 @@ open FSharpx
99
open FSharpx.Functional
1010
open FSharpx.Collections
1111
open FSharpx.Choice
12+
#nowarn "FS0044"
1213
open FSharpx.Validation
1314

1415
// First let's define a domain.

tests/FSharpx.Tests/ValidationTests.fs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@ open FSharpx.CSharpTests
88
open FSharpx
99
open FSharpx.Functional
1010
open FSharpx.Choice
11+
#nowarn "FS0044"
1112
open FSharpx.Validation
1213
open FSharpx.Nullable
1314
open NUnit.Framework

0 commit comments

Comments
 (0)