@@ -58,9 +58,9 @@ let rec flattenList (head: Fable.Expr) (tail: Fable.Expr) =
5858 match tail with
5959 | Fable.Expr.Value ( value, range) ->
6060 match value with
61- | Fable.ValueKind.NewList( Some( nextHead, nextTail), listType ) ->
61+ | Fable.ValueKind.NewList( Some( nextHead, nextTail), _ ) ->
6262 yield ! flattenList nextHead nextTail
63- | Fable.ValueKind.NewList( None, listType ) ->
63+ | Fable.ValueKind.NewList( None, _ ) ->
6464 yield ! [ ]
6565 | _ ->
6666 yield ! [ Fable.Expr.Value ( value, range) ]
@@ -77,7 +77,7 @@ let makeImport (selector: string) (path: string) =
7777let isRecord ( compiler : PluginHelper ) ( fableType : Fable.Type ) =
7878 match fableType with
7979 | Fable.Type.AnonymousRecordType _ -> true
80- | Fable.Type.DeclaredType ( entity, genericArgs ) -> compiler.GetEntity( entity) .IsFSharpRecord
80+ | Fable.Type.DeclaredType ( entity, _ ) -> compiler.GetEntity( entity) .IsFSharpRecord
8181 | _ -> false
8282
8383let isAnonymRecord ( compiler : PluginHelper ) ( fableType : Fable.Type ) =
@@ -89,7 +89,7 @@ let isPropertyList (compiler: PluginHelper) (fableType: Fable.Type) =
8989 match fableType with
9090 | Fable.Type.List( genericArg) ->
9191 match genericArg with
92- | Fable.Type.DeclaredType ( entity, genericArgs ) -> entity.FullName.EndsWith " IReactProperty"
92+ | Fable.Type.DeclaredType ( entity, _ ) -> entity.FullName.EndsWith " IReactProperty"
9393 | _ -> false
9494 | _ -> false
9595
@@ -103,16 +103,16 @@ let isAnonymousRecord (fableType: Fable.Type) =
103103
104104let isReactElement ( fableType : Fable.Type ) =
105105 match fableType with
106- | Fable.Type.DeclaredType ( entity, genericArgs ) -> entity.FullName.EndsWith " ReactElement"
106+ | Fable.Type.DeclaredType ( entity, _ ) -> entity.FullName.EndsWith " ReactElement"
107107 | _ -> false
108108
109109let recordHasField name ( compiler : PluginHelper ) ( fableType : Fable.Type ) =
110110 match fableType with
111- | Fable.Type.AnonymousRecordType ( fieldNames, genericArgs , _ isStruct ) ->
111+ | Fable.Type.AnonymousRecordType ( fieldNames, _, _ ) ->
112112 fieldNames
113113 |> Array.exists ( fun field -> field = name)
114114
115- | Fable.Type.DeclaredType ( entity, genericArgs ) ->
115+ | Fable.Type.DeclaredType ( entity, _ ) ->
116116 compiler.GetEntity( entity) .FSharpFields
117117 |> List.exists ( fun field -> field.Name = name)
118118
0 commit comments