Merge pull request #1 from smoothdeveloper/fix-exn-on-empty-table-value-argument

Fix exn on empty table value argument

Author: vasily-kirichenko

src/SqlClient.Tests/TVPTests.fs

@@ -72,6 +72,13 @@ let SprocTupleValue() =
     let actual = cmd.Execute(p).Value
     Assert.Equal((1, Some "monkey"), actual)    
 
+[<Fact>]
+let ``SprocTupleValue works with empty table``() = 
+    let cmd = new TableValuedSprocTuple()
+    let p = []
+    let actual = cmd.Execute(p)
+    Assert.Equal(None, actual)    
+
 type TableValuedTupleWithOptionalParams = SqlCommandProvider<"exec Person.myProc @x", ConnectionStrings.AdventureWorksNamed, AllParametersOptional = true>
 [<Fact>]
 let TableValuedTupleWithOptionalParams() = 

src/SqlClient/ISqlCommand.fs

@@ -177,9 +177,10 @@ type ``ISqlCommand Implementation``(cfg: DesignTimeConfig, connection: Connectio
 
             if p.Direction.HasFlag(ParameterDirection.Input)
             then 
-                if isNull value then 
+                match value with
+                | null ->
                     p.Value <- DBNull.Value 
-                else
+                | _ ->
                     match p.SqlDbType with 
                     | SqlDbType.Structured -> 
                         p.Value <-