diff options
Diffstat (limited to 'TreeView.hs')
| -rw-r--r-- | TreeView.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TreeView.hs b/TreeView.hs index 92264e7..470913b 100644 --- a/TreeView.hs +++ b/TreeView.hs @@ -221,8 +221,8 @@ loadSubForest = \case return $ Right [] where - termFromMessage = ("id:" <>) . unMessageID . messageId - termFromSearchResult = ("thread:" <>) . unThreadID . searchThread + termFromMessage = unMessageID . messageId + termFromSearchResult = unThreadID . searchThread unloadSubForest :: Tree TreeView -> Forest TreeView |