summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--much.cabal3
-rw-r--r--src/Much/Core.hs10
2 files changed, 5 insertions, 8 deletions
diff --git a/much.cabal b/much.cabal
index 0e5023c..335af37 100644
--- a/much.cabal
+++ b/much.cabal
@@ -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 ->