From 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 19 Mar 2026 21:26:09 +0100 Subject: default-language: Haskell2010 -> GHC2024 --- src/Much/State.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src/Much/State.hs') 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 -- cgit v1.2.3