From fa35f65a14a1a57bf93520ef8bcbfa8fd75c33fe Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 08:35:06 +0100
Subject: More porting

darcs-hash:20071101073506-a5988-b8ee3ece4361dfc533589f5d4ca8c289c3dc77e7.gz
---
 NoBorders.hs | 10 +++++-----
 Run.hs       |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/NoBorders.hs b/NoBorders.hs
index 5c54814..ef07336 100644
--- a/NoBorders.hs
+++ b/NoBorders.hs
@@ -56,10 +56,10 @@ instance LayoutModifier WithBorder Window where
     modifierDescription (WithBorder 0 _) = "NoBorders"
     modifierDescription (WithBorder n _) = "Borders " ++ show n
 
-    unhook (WithBorder _ s) = asks borderWidth >>= setBorders s
+    unhook (WithBorder _ s) = asks (borderWidth . config) >>= setBorders s
 
     redoLayout (WithBorder n s) _ _ wrs = do
-        asks borderWidth >>= setBorders (s \\ ws)
+        asks (borderWidth . config) >>= setBorders (s \\ ws)
         setBorders ws n
         return (wrs, Just $ WithBorder n ws)
      where
@@ -79,18 +79,18 @@ data SmartBorder a = SmartBorder [a] deriving (Read, Show)
 instance LayoutModifier SmartBorder Window where
     modifierDescription _ = "SmartBorder"
 
-    unhook (SmartBorder s) = asks borderWidth >>= setBorders s
+    unhook (SmartBorder s) = asks (borderWidth . config) >>= setBorders s
 
     redoLayout (SmartBorder s) _ _ wrs = do
         ss <- gets (W.screens . windowset)
 
         if singleton ws && singleton ss
             then do
-                asks borderWidth >>= setBorders (s \\ ws)
+                asks (borderWidth . config) >>= setBorders (s \\ ws)
                 setBorders ws 0
                 return (wrs, Just $ SmartBorder ws)
             else do
-                asks borderWidth >>= setBorders s
+                asks (borderWidth . config) >>= setBorders s
                 return (wrs, Just $ SmartBorder [])
      where
         ws = map fst wrs
diff --git a/Run.hs b/Run.hs
index cc3943a..1caecf1 100644
--- a/Run.hs
+++ b/Run.hs
@@ -108,8 +108,8 @@ unsafeSpawn = spawn
 
 -- | Run a given program in the preferred terminal emulator. This uses safeSpawn.
 safeRunInTerm :: String -> X ()
-safeRunInTerm command = asks terminal >>= \t -> safeSpawn t ("-e " ++ command)
+safeRunInTerm command = asks (terminal . config) >>= \t -> safeSpawn t ("-e " ++ command)
 
 unsafeRunInTerm, runInTerm :: String -> X ()
-unsafeRunInTerm command = asks terminal >>= \t -> unsafeSpawn $ t ++ " -e " ++ command
+unsafeRunInTerm command = asks (terminal . config) >>= \t -> unsafeSpawn $ t ++ " -e " ++ command
 runInTerm = unsafeRunInTerm
-- 
cgit v1.2.3