diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Much/Core.hs | 10 |
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 -> |