From 0086b0439b4d0c484a61c889216d7c88c04638fe Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 17 Oct 2007 22:29:53 +0200
Subject: Don't toLower the layout description.

If we'd really like lower case layout descriptions, the 'description' method
in the LayoutClass instances should be changed instead.

darcs-hash:20071017202953-a5988-ba32d2aa4e9dbbfe9d93e8e35545ffc5004a4de9.gz
---
 DynamicLog.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'DynamicLog.hs')

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.
-- 
cgit v1.2.3