From eb61952f07e04e60a27a82783569fb65b6281789 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 29 Sep 2020 22:18:50 +0200
Subject: fix cabal errors

---
 much.cabal       |  3 ++-
 src/Much/Core.hs | 10 +++-------
 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 ->
-- 
cgit v1.2.3