File tree Expand file tree Collapse file tree 2 files changed +394
-76
lines changed
tests/FSharp.Compiler.Service.Tests Expand file tree Collapse file tree 2 files changed +394
-76
lines changed Original file line number Diff line number Diff line change @@ -520,8 +520,13 @@ module FSharpExprConvert =
520520 let rec hasConditionalTypar ty =
521521 match stripTyEqns g ty with
522522 | TType_ var ( tp, _) -> tp.ComparisonConditionalOn || tp.EqualityConditionalOn
523- | TType_ app (_, tinst, _) -> tinst |> List.exists hasConditionalTypar
524- | _ -> false
523+ | TType_ app (_, tinst, _)
524+ | TType_ ucase (_, tinst)
525+ | TType_ anon (_, tinst)
526+ | TType_ tuple (_, tinst) -> tinst |> List.exists hasConditionalTypar
527+ | TType_ fun ( domainTy, rangeTy, _) -> hasConditionalTypar domainTy || hasConditionalTypar rangeTy
528+ | TType_ forall (_, bodyTy) -> hasConditionalTypar bodyTy
529+ | TType_ measure _ -> false
525530
526531 let witnessExprs =
527532 match ConstraintSolver.CodegenWitnessesForTyparInst cenv.tcValF g cenv.amap m tps tyargs with
You can’t perform that action at this time.
0 commit comments