From 273350709792bee4386b03adf68beb369c60beb3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Wed, 23 Sep 2020 17:15:57 +0200
Subject: hlint

---
 Core.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index d5fbc88..5971769 100644
--- a/Core.hs
+++ b/Core.hs
@@ -93,9 +93,8 @@ mainWithStateAndArgs state@State{query = defaultSearch} args = do
       , ""
       , "Options:"
       , "  -q <search-term>, --query=<search-term>"
-      , "        Open specific search, defaults to " ++ (show defaultSearch)
+      , "        Open specific search, defaults to " ++ show defaultSearch
       ]
-    defaultSearch = "tag:inbox AND NOT tag:killed"
 
     s0 = Screen False NoBuffering (BlockBuffering $ Just 4096)
             [ 1000 -- X & Y on button press and release
@@ -144,7 +143,7 @@ uninstallHandlers =
 winchHandler :: (Event -> IO ()) -> IO ()
 winchHandler putEvent =
     Term.size >>= \case
-        Just (Term.Window {Term.width = w, Term.height = h}) ->
+        Just Term.Window {Term.width = w, Term.height = h} ->
             putEvent $ EResize w h
         Nothing ->
             return ()
-- 
cgit v1.2.3