Bumping version to 1.0.9

forki · Dec 21, 2018 · 337ae9d · 337ae9d
1 parent 9ff859c
commit 337ae9d
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 5 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,6 +1,6 @@
 # Release Notes
 
-## 1.0.7 - 2018-12-21
+## 1.0.9 - 2018-12-21
 * Christmas edition
 
 ## 0.16.25 - 2018-12-18

diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs
@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "1.0.7"
+let Version = "1.0.9"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 1.0.7 - 2018-12-21
+## 1.0.9 - 2018-12-21
 * Christmas edition
 
 ## 0.16.25 - 2018-12-18

diff --git a/src/Server/AzureTable.fs b/src/Server/AzureTable.fs
@@ -161,7 +161,7 @@ let saveTag (userID:string) (tag:Tag) =
     tagsTable.ExecuteAsync operation
 
 
-let saveLinks (tag:Tag) (urls:string []) =
+let saveLinks (tag:Tag) (urls:string []) = task {
     let batch = TableBatchOperation()
     let mutable i = 0
     for url in urls do
@@ -171,7 +171,10 @@ let saveLinks (tag:Tag) (urls:string []) =
         entity.Properties.["Url"] <- EntityProperty.GeneratePropertyForString url
         batch.InsertOrReplace entity
         i <- i + 1
-    linksTable.ExecuteBatchAsync batch
+    if i > 0 then
+        let! _ = linksTable.ExecuteBatchAsync batch
+        ()
+}
 
 let saveRequest (userID:string) (token:string) =
     let entity = DynamicTableEntity()