From 93289029b938864d1111c4285d64f3f0a1e5735d Mon Sep 17 00:00:00 2001 From: Hannes Schulze Date: Sun, 22 Jun 2025 01:06:01 +0200 Subject: set up config --- app/Foobar/Application.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'app/Foobar/Application.hs') diff --git a/app/Foobar/Application.hs b/app/Foobar/Application.hs index 5713cc3..94c8182 100644 --- a/app/Foobar/Application.hs +++ b/app/Foobar/Application.hs @@ -9,6 +9,7 @@ import Data.Maybe (fromJust) import Data.GI.Base import Data.Text import GHC.Generics (Generic) +import Foobar.Services.Config (initConfiguration, loadConfiguration, observeConfiguration) import Declarative.Gtk import qualified GI.Gtk as Gtk @@ -44,6 +45,11 @@ appHandler MsgDoSomething s = s.stateText <~ "Did something!" onActivate :: Gtk.Application -> IO () onActivate app = do + conf <- initConfiguration + putStrLn $ "Initial config: " ++ show conf + observeConfiguration $ do + conf' <- loadConfiguration + putStrLn $ "Updated config: " ++ show conf' provider <- new Gtk.CssProvider [] provider.loadFromResource "/foobar/styles/default.css" disp <- Gdk.displayGetDefault -- cgit v1.3.1