From ae78e7c5cd538c6863d1f602af295e91e2e43d47 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 31 Dec 2014 12:31:07 +0100
Subject: "s" toggles "unread" tag and "a" toggles "inbox"

---
 TreeViewRaw.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'TreeViewRaw.hs')

diff --git a/TreeViewRaw.hs b/TreeViewRaw.hs
index b10f3e6..52ea966 100644
--- a/TreeViewRaw.hs
+++ b/TreeViewRaw.hs
@@ -14,6 +14,7 @@ import Data.Monoid
 import Data.Time
 import Data.Time.Format.Human
 import Data.Tree
+import TagUtils (Tag)
 import Trammel
 import TreeView
 
@@ -124,9 +125,9 @@ renderFrom = \case
     Nothing -> SGR [35,1] "Anonymous"
 
 
-renderTags :: [T.Text] -> Trammel String
-renderTags ts =
-    Plain $ T.unpack $ T.intercalate " " ts
+renderTags :: [Tag] -> Trammel String
+renderTags =
+    Plain . T.unpack . T.intercalate " " . L.sort
 
 
 dropAddress :: String -> String
-- 
cgit v1.2.3