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/State.hs | |
| parent | f06e531ecfae6b36df10e2861500490f38a82de5 (diff) | |
default-language: Haskell2010 -> GHC2024
Diffstat (limited to 'src/Much/State.hs')
| -rw-r--r-- | src/Much/State.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/Much/State.hs b/src/Much/State.hs index a1de01f..c42460e 100644 --- a/src/Much/State.hs +++ b/src/Much/State.hs @@ -1,24 +1,24 @@ -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} + module Much.State where import Blessings import Data.Aeson +import Data.CaseInsensitive qualified as CI import Data.Default import Data.Functor.Identity +import Data.Map qualified as M +import Data.Text qualified as T import Data.Time +import Data.Tree qualified as Tree +import Data.Tree.Zipper qualified as Z import GHC.Generics +import Much.API.Config qualified import Much.TreeView (TreeView(TVSearch)) +import Notmuch.Message qualified as Notmuch import Scanner import System.Posix.Signals -import qualified Data.CaseInsensitive as CI -import qualified Data.Map as M -import qualified Data.Text as T -import qualified Data.Tree as Tree -import qualified Data.Tree.Zipper as Z -import qualified Much.API.Config -import qualified Notmuch.Message as Notmuch + data State = State { cursor :: Z.TreePos Z.Full TreeView |
