瀏覽代碼

fix(sidebar): put tab at the end after drag-and-drop between groups

Jocelyn Boullier 4 年之前
父節點
當前提交
45819dd7ec
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/Sidebar/Components/Bar.purs

+ 1 - 1
src/Sidebar/Components/Bar.purs

@@ -463,7 +463,7 @@ lastWinTabIndexInGroup gid =
   A.mapWithIndex (Tuple)
     >>> A.filter (T.snd >>> T.snd >>> (==) gid)
     >>> map T.fst
-    >>> A.head
+    >>> A.last
 
 findNextGroupId :: S.Set GroupId -> GroupId
 findNextGroupId values =