Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit12deda4

Browse files
suggest using .[] insteaed of [] if [] are actually present only
1 parent00217e7 commit12deda4

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

‎src/fsharp/TypeChecker.fs‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8220,9 +8220,9 @@ and Propagate cenv overallTy env tpenv (expr: ApplicableExpr) exprty delayed =
82208220
propagate delayedList' mExprAndArg resultTy
82218221
| None ->
82228222
let mArg = arg.Range
8223-
match arg with
8223+
match arg with
82248224
| SynExpr.CompExpr _ -> ()
8225-
| _ ->
8225+
|SynExpr.ArrayOrListOfSeqExpr_ ->
82268226
// 'delayed' is about to be dropped on the floor, first do rudimentary checking to get name resolutions in its body
82278227
RecordNameAndTypeResolutions_IdeallyWithoutHavingOtherEffects_Delayed cenv env tpenv delayed
82288228

@@ -8241,6 +8241,8 @@ and Propagate cenv overallTy env tpenv (expr: ApplicableExpr) exprty delayed =
82418241
| _ -> false
82428242

82438243
error (NotAFunction(denv,overallTy,flag,mExpr,mArg))
8244+
| _ ->
8245+
error (NotAFunction(denv,overallTy,false,mExpr,mArg))
82448246

82458247
propagate delayed expr.Range exprty
82468248

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp