Skip to content

Commit

Permalink
Fix naming error
Browse files Browse the repository at this point in the history
  • Loading branch information
PatrickMcDonald committed Feb 29, 2016
1 parent 0a020aa commit 4f76b0e
Showing 1 changed file with 2 additions and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -846,9 +846,9 @@ let ``List.allPairs first elements are correct`` () =
Check.QuickThrowOnFailure allPairsFst<NormalFloat, NormalFloat>

let allPairsSnd<'a, 'b when 'b : equality> (xs : 'a list) (ys : 'b list) =
let pairsFst = List.allPairs xs ys |> List.map snd
let pairsSnd = List.allPairs xs ys |> List.map snd
let check = [ for i in 1 .. xs.Length do yield! ys ]
pairsFst = check
pairsSnd = check

[<Test>]
let ``List.allPairs second elements are correct`` () =
Expand Down

0 comments on commit 4f76b0e

Please sign in to comment.