renaming createPost and PostId with createTweet and TweetId respectively

Author: demystifyfp

src/FsTweet.Web/Tweet.fs

@@ -2,7 +2,7 @@ namespace Tweet
 open User
 open Chessie.ErrorHandling
 
-type PostId = PostId of System.Guid
+type TweetId = TweetId of System.Guid
 
 type Post = private Post of string with
   static member TryCreate (post : string) =
@@ -14,7 +14,7 @@ type Post = private Post of string with
     let (Post post) = this
     post
 
-type CreatePost = UserId -> Post -> AsyncResult<PostId, System.Exception>
+type CreatePost = UserId -> Post -> AsyncResult<TweetId, System.Exception>
 
 
 module Persistence =
@@ -23,16 +23,16 @@ module Persistence =
   open Database
   open System
 
-  let createPost (getDataCtx : GetDataContext) (UserId userId) (post : Post) = asyncTrial {
+  let createTweet (getDataCtx : GetDataContext) (UserId userId) (post : Post) = asyncTrial {
     let ctx = getDataCtx()
     let newTweet = ctx.Public.Tweets.Create()
-    let newPostId = Guid.NewGuid()
+    let newTweetId = Guid.NewGuid()
 
     newTweet.UserId <- userId
-    newTweet.Id <- newPostId
+    newTweet.Id <- newTweetId
     newTweet.Post <- post.Value
     newTweet.TweetedAt <- DateTime.UtcNow
 
     do! submitUpdates ctx 
-    return PostId newPostId
+    return TweetId newTweetId
   }

src/FsTweet.Web/Wall.fs

@@ -27,7 +27,7 @@ module Suave =
     return! page "user/wall.liquid" vm ctx
   }
 
-  let onCreateTweetSuccess (PostId id) = 
+  let onCreateTweetSuccess (TweetId id) = 
     ["id", String (id.ToString())]
     |> Map.ofList
     |> Object
@@ -53,7 +53,7 @@ module Suave =
   }
 
   let webpart getDataCtx =
-    let createTweet = Persistence.createPost getDataCtx 
+    let createTweet = Persistence.createTweet getDataCtx 
     choose [
       path "/wall" >=> requiresAuth renderWall
       POST >=> path "/tweets"