fixed post publishing issue

Author: Szymon Sasin

build/build.yml

@@ -14,7 +14,7 @@ trigger:
 pool:
   vmImage: ubuntu-latest
 
-name: 0.12.0
+name: 0.12.1
 
 stages:
   - stage: BuildAndTest

src/Functional.UniversalBot.Core/PrimitiveValues/String.fs

@@ -22,3 +22,6 @@ let generateRandomString numebrOfCharacters =
     let chars = "0123456789abcdefghijklmnopqrstuvwxyz".ToCharArray()
     let sz = Array.length chars in
     String(Array.init numebrOfCharacters (fun _ -> chars.[randomizer.Next sz])).ToString()
+
+let toLower (input: string) = 
+    input.ToLower()

src/Functional.UniversalBot.Hive/Actions/WritePost.fs

@@ -12,10 +12,10 @@ open FSharp.Control
 let ModuleName = "WritePost"
 
 let private createPost username body title (tags: string array) = 
-    let tags = String.Join("\",\"", tags)
-    let metadata = $"""{{"app":"universalbot/0.12.0", "tags": ["{tags}"]}}"""
-    let permlink = title |> String.replace ' ' '-'
-    Hive.createComment username body metadata "" "" permlink title
+    let tagsList = String.Join("\",\"", tags)
+    let metadata = $"""{{"app":"universalbot/0.12.0", "tags": ["{tagsList}"]}}"""
+    let permlink = title |> String.replace ' ' '-' |> String.toLower
+    Hive.createComment username body metadata "" tags.[0] permlink title
 
 let private getTemplate templateId (entity: PipelineProcessData<UniversalHiveBotResutls>) = 
     (Map.getValueWithDefault entity.properties templateId ("" :> obj)).ToString()