summaryrefslogtreecommitdiffstats
path: root/test3.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-12-24 21:52:15 +0100
committertv <tv@shackspace.de>2014-12-24 21:52:15 +0100
commit80d042e36a58eedb0df02cfce1c619744d9d9cf7 (patch)
treea3e708d97c0229d8666ba06b0590a3372dfec947 /test3.hs
parent998864578605c2d99299072320208e731ed5099c (diff)
replace {Open,Closed}Message by TVMessage
Diffstat (limited to 'test3.hs')
-rw-r--r--test3.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/test3.hs b/test3.hs
index f5b600a..b299f30 100644
--- a/test3.hs
+++ b/test3.hs
@@ -69,8 +69,7 @@ import ThreadView
toggleTag :: T.Text -> ThreadView -> IO ()
toggleTag tag = \case
- OpenMessage m -> f m
- ClosedMessage m -> f m
+ TVMessage m -> f m
_ -> return ()
where
f m = do
@@ -198,8 +197,7 @@ threadImage c (Node n ns) =
--where
-- --hasFocus = t_cur == messageId n
-- hasFocus :: ThreadView -> Bool
- -- hasFocus (OpenMessage m) = c == m
- -- hasFocus (ClosedMessage m) = c == m
+ -- hasFocus (TVMessage m) = c == m
-- hasFocus _ = False