diff options
| -rw-r--r-- | much.cabal | 3 | ||||
| -rw-r--r-- | src/Much/Core.hs | 10 |
2 files changed, 5 insertions, 8 deletions
@@ -49,6 +49,7 @@ library hs-source-dirs: src exposed-modules: Much.Core , Much.Action + , Much.API , Much.Config , Much.Event , Much.ParseMail @@ -98,7 +99,7 @@ library , rosezipper , safe , scanner - , servent-server + , servant-server , split , terminal-size , text 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 -> |