From eb61952f07e04e60a27a82783569fb65b6281789 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Tue, 29 Sep 2020 22:18:50 +0200 Subject: fix cabal errors --- src/Much/Core.hs | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'src') 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 -> -- cgit v1.2.3