@@ -74,10 +74,10 @@ module Types =
74
74
75
75
member this.Printl content =
76
76
Printf.kprintf ( fun s -> output.Append( " \r\n " + this.GetCurIndent() + s) |> ignore) content
77
-
77
+
78
78
member this.PrintlToStack content =
79
79
Printf.kprintf ( fun s -> stack.Append( " \r\n " + this.GetCurIndent() + s) |> ignore) content
80
-
80
+
81
81
member this.StackIsEmpty () = stack.Length = 0
82
82
83
83
member this.IncreaseIndent () = curTabCount <- curTabCount + 1
@@ -324,8 +324,8 @@ module Data =
324
324
325
325
type KnownWorkerInterfaceType = JsonProvider< " inputfiles/knownWorkerInterfaces.json" , InferTypesFromValues= false >
326
326
let knownWorkerInterfaces =
327
- File.ReadAllText( Path.Combine( GlobalVars.inputFolder, " knownWorkerInterfaces.json" ))
328
- |> KnownWorkerInterfaceType.Parse
327
+ File.ReadAllText( Path.Combine( GlobalVars.inputFolder, " knownWorkerInterfaces.json" ))
328
+ |> KnownWorkerInterfaceType.Parse
329
329
|> set
330
330
331
331
let GetAllInterfacesByFlavor flavor =
@@ -736,8 +736,6 @@ module Emit =
736
736
let tName = DomTypeToTsType ( genericMatch.Groups.[ 1 ]. Value)
737
737
let paramName = DomTypeToTsType ( genericMatch.Groups.[ 2 ]. Value)
738
738
match tName with
739
- | " Promise" ->
740
- " PromiseLike<" + paramName + " >"
741
739
| _ ->
742
740
if tName = " Array" then paramName + " []"
743
741
else tName + " <" + paramName + " >"
@@ -894,7 +892,7 @@ module Emit =
894
892
| Some pollutor -> " this: " + pollutor.Name + " , "
895
893
| _ -> " "
896
894
897
- let EmitProperties flavor prefix ( emitScope : EmitScope ) ( i : Browser.Interface ) ( conflictedMembers : Set < string >) =
895
+ let EmitProperties flavor prefix ( emitScope : EmitScope ) ( i : Browser.Interface ) ( conflictedMembers : Set < string >) =
898
896
let emitPropertyFromJson ( p : InputJsonType.Root ) =
899
897
let readOnlyModifier =
900
898
match p.Readonly with
@@ -1030,7 +1028,7 @@ module Emit =
1030
1028
1031
1029
/// Emit the properties and methods of a given interface
1032
1030
let EmitMembers flavor ( prefix : string ) ( emitScope : EmitScope ) ( i : Browser.Interface ) =
1033
- let conflictedMembers =
1031
+ let conflictedMembers =
1034
1032
match Map.tryFind i.Name extendConflictsBaseTypes with
1035
1033
| Some conflict -> conflict.MemberNames
1036
1034
| _ -> []
@@ -1129,7 +1127,7 @@ module Emit =
1129
1127
match Map.tryFind iName extendConflictsBaseTypes with
1130
1128
| Some _ -> iName + " Base"
1131
1129
| _ -> iName
1132
-
1130
+
1133
1131
let processedIName = processIName i.Name
1134
1132
if processedIName <> i.Name then
1135
1133
Pt.PrintlToStack " interface %s extends %s {" i.Name processedIName
@@ -1462,7 +1460,7 @@ module Emit =
1462
1460
Pt.Printl " "
1463
1461
1464
1462
EmitDictionaries flavor
1465
- browser.CallbackInterfaces.Interfaces |> Array.iter EmitCallBackInterface
1463
+ browser.CallbackInterfaces.Interfaces |> Array.iter EmitCallBackInterface
1466
1464
EmitNonCallbackInterfaces flavor
1467
1465
1468
1466
// Add missed interface definition from the spec
0 commit comments