rename id function

Author: Jamil Maqdis Anton

src/Append.fs

@@ -17,16 +17,16 @@ and Id =
 module append =
     let appendNewMessage: IStreamStore -> StreamDetails -> MessageDetails -> Async<AppendResult> =
         fun store streamDetails messageDetails ->
-            let id: Id -> System.Guid =
+            let toId: Id -> System.Guid =
                 function
                 | Custom guid -> guid
                 | Auto -> System.Guid.NewGuid()
 
             let createMessage: MessageDetails -> NewStreamMessage =
                 fun msg ->
                     match msg.jsonMetadata with
-                    | "" -> NewStreamMessage(id msg.id, msg.type_, msg.jsonData)
-                    | metadata -> NewStreamMessage(id msg.id, msg.type_, msg.jsonData, metadata)
+                    | "" -> NewStreamMessage(toId msg.id, msg.type_, msg.jsonData)
+                    | metadata -> NewStreamMessage(toId msg.id, msg.type_, msg.jsonData, metadata)
 
             let toVersion: Version -> int =
                 function