summaryrefslogtreecommitdiffstats
path: root/src/Much
diff options
context:
space:
mode:
authorKierán Meinhardt <kieran.meinhardt@gmail.com>2020-09-29 22:18:50 +0200
committerKierán Meinhardt <kieran.meinhardt@gmail.com>2020-09-29 22:18:50 +0200
commiteb61952f07e04e60a27a82783569fb65b6281789 (patch)
tree5f808bc7054f68e62b9b5e7e68b862378b1f45f3 /src/Much
parente7d53d6fc81fb14576fca035ab0360b44bbd6495 (diff)
fix cabal errors
Diffstat (limited to 'src/Much')
-rw-r--r--src/Much/Core.hs10
1 files changed, 3 insertions, 7 deletions
diff --git a/src/Much/Core.hs b/src/Much/Core.hs
index 20b7ee3..769fd03 100644
--- a/src/Much/Core.hs
+++ b/src/Much/Core.hs
@@ -11,7 +11,6 @@ import Data.Aeson
import Data.Functor
import Data.Maybe
import Data.Time
-import Debug.Trace
import Much.API
import Much.Action
import Much.Event
@@ -117,10 +116,7 @@ notmuchSearch q@State{query} = do
mainWithState :: State -> IO ()
-mainWithState state = mainWithStateAndArgs state =<< getArgs
-
-mainWithStateAndArgs :: State -> [String] -> IO ()
-mainWithStateAndArgs state@State{query = defaultSearch} args = do
+mainWithState state@State{query = defaultSearch} = do
(query, maybeConfigPath) <- execParser (options defaultSearch)
newState <- case maybeConfigPath of
Just configPath -> do
@@ -210,8 +206,8 @@ processEvent q = \case
return $ Right q { flashMessage = t }
EScan (ScanKey s) ->
Right <$> keymap q s q
- EScan info@ScanMouse{..} ->
- Right <$> mousemap q info q
+ EScan mouseInfo@ScanMouse{..} ->
+ Right <$> mousemap q mouseInfo q
EShutdown ->
return $ Left q
EResize w h ->