diff options
| author | tv <tv@krebsco.de> | 2020-09-29 22:27:04 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2020-09-29 22:28:58 +0200 |
| commit | bc75dbe4a72210352c2b1c0983b35658d307dca5 (patch) | |
| tree | 5357f1efcb00e6920cece7b3cd3714d6c487cbbb /src/Much/State.hs | |
| parent | eb61952f07e04e60a27a82783569fb65b6281789 (diff) | |
Much.API: make socket configurable
Diffstat (limited to 'src/Much/State.hs')
| -rw-r--r-- | src/Much/State.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |