From 691e08015abb10b059477ba4c35f254e7a1f59be Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 22 Apr 2022 00:27:36 -0600 Subject: Infrastructure for better logging, finally! Right now all existing logs are logged at Info, but this will change. This should make it significantly easier to debug things wit log levels like Trace. I may at some point define more log level endpoints or come up with a more expressive logging system, but this is a good start. --- src/Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 5c1a4e0..17f6207 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -29,6 +29,7 @@ import qualified XMonad as X import qualified XMonad.StackSet as W main = do + putStrLn "Welcome To RDE!" -- Execute some commands. homeDir <- getHomeDirectory @@ -80,8 +81,8 @@ main = do changeHook :: Location -> Location -> X () -changeHook l1 l2 = do - logs $ printf "Change %s -> %s" (show l1) (show l2) +changeHook l1 l2 = + logs Info "Change %s -> %s" (show l1) (show l2) doCenterFloat :: ManageHook doCenterFloat = -- cgit