hlint

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