diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-22 00:27:36 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 691e08015abb10b059477ba4c35f254e7a1f59be (patch) | |
| tree | ac6e9defe20a84ea5562e405eea54684e163f665 /src/Main.hs | |
| parent | a45cfc63c66b2f85768df0eba77e9460a75e6215 (diff) | |
| download | rde-691e08015abb10b059477ba4c35f254e7a1f59be.tar.gz rde-691e08015abb10b059477ba4c35f254e7a1f59be.tar.bz2 rde-691e08015abb10b059477ba4c35f254e7a1f59be.zip | |
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.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 = |