Skip to content

Commit

Permalink
Comment out code due to possible regression
Browse files Browse the repository at this point in the history
  • Loading branch information
gusty authored Feb 2, 2025
1 parent acfb46e commit 1f963bd
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions tests/FSharpPlus.Tests/General.fs
Original file line number Diff line number Diff line change
Expand Up @@ -1216,16 +1216,16 @@ module Alternative =
let _ = choice (ofSeq s: Set<_>) // use Default3: choice of an alternative
Assert.AreEqual (fullList, SideEffects.get ()) // short-circuits but the conversion to set forces all side-effects

SideEffects.reset ()
// Possible F# regression:
// Possible F# regressions:
// General.fs(1224,25): error FS0465: Type inference problem too complicated (maximum iteration depth reached).
// Consider adding further type annotations. [D:\a\FSharpPlus\FSharpPlus\tests\FSharpPlus.Tests\FSharpPlus.Tests.fsproj]
// SideEffects.reset ()
// let _ = choice (NonEmptyList.ofList (toList t)) // uses Default1 (Choice defined on NonEmptyList)
// Assert.AreEqual (fullList, SideEffects.get ()) // short-circuits but the conversion to set forces all side-effects

SideEffects.reset ()
let _ = choice (WrappedSeqE t) // uses Default2
Assert.AreEqual ("Using WrappedSeqE's ToSeq"::shortList, SideEffects.get ()) // short-circuits
//
// SideEffects.reset ()
// let _ = choice (WrappedSeqE t) // uses Default2
// Assert.AreEqual ("Using WrappedSeqE's ToSeq"::shortList, SideEffects.get ()) // short-circuits

SideEffects.reset ()
let _ = choice (toList v) // uses specific overload for lists
Expand Down

0 comments on commit 1f963bd

Please sign in to comment.