summaryrefslogtreecommitdiffstats
path: root/Core.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Core.hs')
-rw-r--r--Core.hs5
1 files changed, 2 insertions, 3 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 ()