diff options
| author | tv <tv@krebsco.de> | 2026-03-19 21:26:09 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-03-19 22:36:50 +0100 |
| commit | 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 (patch) | |
| tree | 0775bbb5b4d55c13c9f2c9a7a04267a7ed9b45f0 /src/Much/Core.hs | |
| parent | f06e531ecfae6b36df10e2861500490f38a82de5 (diff) | |
default-language: Haskell2010 -> GHC2024
Diffstat (limited to 'src/Much/Core.hs')
| -rw-r--r-- | src/Much/Core.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Much/Core.hs b/src/Much/Core.hs index 1c8daa7..996d31b 100644 --- a/src/Much/Core.hs +++ b/src/Much/Core.hs @@ -1,19 +1,22 @@ -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} + module Much.Core where +import Blessings.Internal qualified as Blessings import Blessings.String.WCWidth (Blessings(Plain,SGR),pp) import Control.Concurrent import Control.Monad import Data.Aeson import Data.Functor import Data.Functor.Identity +import Data.Map qualified as M import Data.Maybe import Data.Time +import Data.Tree.Zipper qualified as Z import Much.API import Much.Action +import Much.Config qualified as Config import Much.Event import Much.RenderTreeView (renderTreeView) import Much.Screen @@ -21,18 +24,15 @@ import Much.State import Much.TreeSearch import Much.TreeView import Much.Utils +import Notmuch qualified import Options.Applicative import Scanner (scan,Scan(..)) +import System.Console.Terminal.Size qualified as Term import System.Environment import System.Exit import System.IO import System.Posix.Signals -import qualified Blessings.Internal as Blessings -import qualified Data.Map as M -import qualified Data.Tree.Zipper as Z -import qualified Much.Config as Config -import qualified Notmuch -import qualified System.Console.Terminal.Size as Term + importConfig :: Config.Config -> State -> State importConfig config state = state |
