From 80d042e36a58eedb0df02cfce1c619744d9d9cf7 Mon Sep 17 00:00:00 2001 From: tv Date: Wed, 24 Dec 2014 21:52:15 +0100 Subject: replace {Open,Closed}Message by TVMessage --- test3.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'test3.hs') 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 -- cgit v1.2.3