aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Logger.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Rahm/Desktop/Logger.hs')
-rw-r--r--src/Rahm/Desktop/Logger.hs17
1 files changed, 8 insertions, 9 deletions
diff --git a/src/Rahm/Desktop/Logger.hs b/src/Rahm/Desktop/Logger.hs
index 95a65ca..a99214e 100644
--- a/src/Rahm/Desktop/Logger.hs
+++ b/src/Rahm/Desktop/Logger.hs
@@ -1,21 +1,20 @@
module Rahm.Desktop.Logger where
-import Control.Monad (when, forM_, join)
-import XMonad
-import qualified XMonad.Util.ExtensibleState as XS
-import System.IO
+import Control.Monad (forM_, join, when)
import Data.Time.LocalTime (getZonedTime)
-
import Rahm.Desktop.NoPersist
+import System.IO
import Text.Printf
+import XMonad
+import qualified XMonad.Util.ExtensibleState as XS
data LogLevel = Trace | Debug | Info | Warn | Error | Fatal
deriving (Show, Read, Ord, Eq, Enum, Bounded)
-newtype LoggerState =
- LoggerState {
- logLevel :: LogLevel
- } deriving (Show, Read, Eq)
+newtype LoggerState = LoggerState
+ { logLevel :: LogLevel
+ }
+ deriving (Show, Read, Eq)
instance ExtensionClass LoggerState where
initialValue = LoggerState Info