summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Core.hs5
-rw-r--r--State.hs1
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