fixing warning

Author: aaronpowell

samples/FSharp.CosmosDb.Samples/Program.fs

@@ -12,8 +12,7 @@ type Parent =
       FirstName: string }
 
 [<CLIMutable>]
-type Pet =
-    { GivenName: string }
+type Pet = { GivenName: string }
 
 [<CLIMutable>]
 type Child =
@@ -61,21 +60,22 @@ let insertFamilies<'T> conn (families: 'T list) =
 // this is to test a broken query in the analyzer
 let getFamiliesBroken conn =
     conn
-    |> Cosmos.query<Family> "SELECT * FROM f WHERE f.Name = @name AND f.Age = @AGE"
-    |> Cosmos.parameters
-        [ "age", box 35
-          "lastName", box "Powell" ]
-    |> Cosmos.execAsync
+    |> Cosmos.query "SELECT * FROM f WHERE f.Name = @name AND f.Age = @AGE"
+    |> Cosmos.parameters [ "age", box 35
+                           "lastName", box "Powell" ]
+    |> Cosmos.execAsync<Family>
 
 let getFamilies conn =
     conn
-    |> Cosmos.query<Family> "SELECT * FROM f WHERE f.LastName = @lastName"
+    |> Cosmos.query "SELECT * FROM f WHERE f.LastName = @lastName"
     |> Cosmos.parameters [ "@lastName", box "Powell" ]
-    |> Cosmos.execAsync
+    |> Cosmos.execAsync<Family>
 
 let updateFamily conn id pk =
     conn
-    |> Cosmos.update<Family> id pk (fun family -> { family with IsRegistered = not family.IsRegistered })
+    |> Cosmos.update<Family> id pk (fun family ->
+           { family with
+                 IsRegistered = not family.IsRegistered })
     |> Cosmos.execAsync
 
 let deleteFamily conn id pk =
@@ -85,12 +85,19 @@ let deleteFamily conn id pk =
 
 [<EntryPoint>]
 let main argv =
-    let environmentName = System.Environment.GetEnvironmentVariable("ASPNETCORE_ENVIRONMENT")
+    let environmentName =
+        System.Environment.GetEnvironmentVariable("ASPNETCORE_ENVIRONMENT")
+
     let builder =
         JsonConfigurationExtensions.AddJsonFile
             (JsonConfigurationExtensions.AddJsonFile
                 (FileConfigurationExtensions.SetBasePath(ConfigurationBuilder(), Directory.GetCurrentDirectory()),
-                 "appsettings.json", true, true), sprintf "appsettings.%s.json" environmentName, true, true)
+                 "appsettings.json",
+                 true,
+                 true),
+             sprintf "appsettings.%s.json" environmentName,
+             true,
+             true)
 
     let config = builder.Build()
 
@@ -99,9 +106,11 @@ let main argv =
         // let key = config.["CosmosConnection:Key"]
         // let conn = getFamiliesConnection host key
 
-        let connectionString = config.["CosmosConnection:ConnectionString"]
+        let connectionString =
+            config.["CosmosConnection:ConnectionString"]
 
-        let conn = getFamiliesConnectionFromConnString connectionString
+        let conn =
+            getFamiliesConnectionFromConnString connectionString
 
         let families =
             [| { Id = "Powell.1"
@@ -118,16 +127,20 @@ let main argv =
             |> Array.toList
 
         let insert = insertFamilies conn families
-        do! insert |> AsyncSeq.iter (fun f -> printfn "Inserted: %A" f)
+        do! insert
+            |> AsyncSeq.iter (fun f -> printfn "Inserted: %A" f)
 
         let families = getFamilies conn
-        do! families |> AsyncSeq.iter (fun f -> printfn "Got: %A" f)
+        do! families
+            |> AsyncSeq.iter (fun f -> printfn "Got: %A" f)
 
         let updatePowell = updateFamily conn "Powell.1" "Powell"
-        do! updatePowell |> AsyncSeq.iter (fun f -> printfn "Updated: %A" f)
+        do! updatePowell
+            |> AsyncSeq.iter (fun f -> printfn "Updated: %A" f)
 
         let deletePowell = deleteFamily conn "Powell.1" "Powell"
-        do! deletePowell |> AsyncSeq.iter (fun f -> printfn "Deleted: %A" f)
+        do! deletePowell
+            |> AsyncSeq.iter (fun f -> printfn "Deleted: %A" f)
 
         return 0 // return an integer exit code
     }