summaryrefslogtreecommitdiffstats
path: root/src/Much/State.hs
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2026-03-19 21:26:09 +0100
committertv <tv@krebsco.de>2026-03-19 22:36:50 +0100
commit131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 (patch)
tree0775bbb5b4d55c13c9f2c9a7a04267a7ed9b45f0 /src/Much/State.hs
parentf06e531ecfae6b36df10e2861500490f38a82de5 (diff)
default-language: Haskell2010 -> GHC2024
Diffstat (limited to 'src/Much/State.hs')
-rw-r--r--src/Much/State.hs18
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