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 ++---
 State.hs | 1 -
 2 files changed, 2 insertions(+), 4 deletions(-)

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 ()
diff --git a/State.hs b/State.hs
index 21c0122..a291a53 100644
--- a/State.hs
+++ b/State.hs
@@ -1,7 +1,6 @@
 module State where
 
 import Blessings.String (Blessings)
-import qualified Data.Map as M
 import qualified Data.Text as T
 import Data.Time
 import qualified Data.Tree.Zipper as Z
-- 
cgit v1.2.3