From 054fdedefe623817668ee689e7eac9de3d74f540 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 7 Jan 2015 05:43:01 +0100
Subject: change search term with <M-q>

---
 TreeView.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'TreeView.hs')

diff --git a/TreeView.hs b/TreeView.hs
index 26b04bd..218d167 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -6,6 +6,7 @@
 module TreeView
     ( TreeView (..)
     , getMessage
+    , getSearchTerm
     , isTVMessage
     , isTVSearchResult
     , fromSearchResults
@@ -93,6 +94,12 @@ getMessage = \case
     _ -> Nothing
 
 
+getSearchTerm :: TreeView -> Maybe String
+getSearchTerm = \case
+    TVSearch term -> Just term
+    _ -> Nothing
+
+
 isTVMessage :: TreeView -> Bool
 isTVMessage = \case
     TVMessage _ -> True
-- 
cgit v1.2.3