From ee9be16599f20aef6d1d3fd15666c00452f85aba Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 21 Nov 2022 12:05:03 -0700 Subject: Format with ormolu. --- src/Rahm/Desktop/Logger.hs | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'src/Rahm/Desktop/Logger.hs') 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 -- cgit