From f717b6857fad61356fa6ce5d3d0c256ac89f50eb Mon Sep 17 00:00:00 2001
From: Nicolas Perriault <nicolas@perriault.net>
Date: Mon, 29 May 2017 23:27:04 +0200
Subject: [PATCH] Fix incoming home timeline statuses spawn into thread.

---
 src/Update/WebSocket.elm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Update/WebSocket.elm b/src/Update/WebSocket.elm
index 828827c..5568157 100644
--- a/src/Update/WebSocket.elm
+++ b/src/Update/WebSocket.elm
@@ -117,7 +117,7 @@ update msg model =
 isThreadMember : Thread -> Status -> Bool
 isThreadMember thread status =
     case ( thread.status, thread.context ) of
-        ( Just status, Just context ) ->
+        ( Just threadStatus, Just context ) ->
             case status.in_reply_to_id of
                 Nothing ->
                     False
@@ -126,7 +126,7 @@ isThreadMember thread status =
                     let
                         threadStatusIds =
                             List.concat
-                                [ [ status.id ]
+                                [ [ threadStatus.id ]
                                 , List.map .id context.ancestors
                                 , List.map .id context.descendants
                                 ]
@@ -153,7 +153,7 @@ appendToThreadDescendants ({ context } as thread) status =
 updateCurrentViewWithStatus : Status -> Model -> Model
 updateCurrentViewWithStatus status ({ accountInfo } as model) =
     case model.currentView of
-        ThreadView ({ context } as thread) ->
+        ThreadView thread ->
             if isThreadMember thread status then
                 { model | currentView = ThreadView (appendToThreadDescendants thread status) }
             else