diff options
| -rw-r--r-- | DynamicLog.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs index 698feb9..3c06881 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -42,7 +42,6 @@ import Data.Ord ( comparing ) import qualified StackSet as S import Data.Monoid import XMonadContrib.NamedWindows -import Data.Char -- $usage -- @@ -87,7 +86,7 @@ dynamicLog :: X () dynamicLog = withWindowSet $ \ws -> do let ld = description . S.layout . S.workspace . S.current $ ws wn = pprWindowSet ws - io . putStrLn $ concat [wn ," : " ,map toLower ld] + io . putStrLn $ concat [wn ," : " ,ld] -- | Appends title of currently focused window to log output, and the -- current layout mode, to the normal dynamic log format. |