From bc75dbe4a72210352c2b1c0983b35658d307dca5 Mon Sep 17 00:00:00 2001 From: tv Date: Tue, 29 Sep 2020 22:27:04 +0200 Subject: Much.API: make socket configurable --- src/Much/State.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Much/State.hs') diff --git a/src/Much/State.hs b/src/Much/State.hs index 43756a7..b7b01e6 100644 --- a/src/Much/State.hs +++ b/src/Much/State.hs @@ -9,9 +9,10 @@ import GHC.Generics import Much.TreeView (TreeView) import Scanner import System.Posix.Signals -import qualified Data.Text as T import qualified Data.Map as M +import qualified Data.Text as T import qualified Data.Tree.Zipper as Z +import qualified Much.API.Config data State = State { cursor :: Z.TreePos Z.Full TreeView @@ -29,6 +30,7 @@ data State = State , mousemap :: Scan -> State -> IO State , tagSymbols :: M.Map T.Text T.Text , colorConfig :: ColorConfig (Blessings String -> Blessings String) + , apiConfig :: Much.API.Config.Config } instance Show (State -> IO ()) where -- cgit v1.2.3