diff options
Diffstat (limited to 'app/Foobar/Application.hs')
| -rw-r--r-- | app/Foobar/Application.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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 |