From fe066e8e9ca5326dd146630a6d729fae51af12cf Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Tue, 28 May 2013 02:58:25 +0200
Subject: eliminate references to defaultConfig

Ignore-this: 37ae613e4b943e99c5200915b9d95e58

darcs-hash:20130528005825-76d51-89eaf6f1aeeb02086371f9c4ae2afade984f62e0.gz
---
 XMonad/Util/NamedActions.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'XMonad/Util/NamedActions.hs')

diff --git a/XMonad/Util/NamedActions.hs b/XMonad/Util/NamedActions.hs
index 6ea4b82..7b8012c 100644
--- a/XMonad/Util/NamedActions.hs
+++ b/XMonad/Util/NamedActions.hs
@@ -67,7 +67,7 @@ import qualified XMonad.StackSet as W
 -- > import XMonad.Util.EZConfig
 -- >
 -- > main = xmonad $ addDescrKeys ((mod4Mask, xK_F1), xMessage) myKeys
--- >                    defaultConfig { modMask = mod4Mask }
+-- >                    def { modMask = mod4Mask }
 -- >
 -- > myKeys c = (subtitle "Custom Keys":) $ mkNamedKeymap c $
 -- >    [("M-x a", addName "useless message" $ spawn "xmessage foo"),
@@ -191,7 +191,7 @@ smartSpace [] = []
 smartSpace xs = ' ':xs
 
 _test :: String
-_test = unlines $ showKm $ defaultKeysDescr XMonad.defaultConfig { XMonad.layoutHook = XMonad.Layout $ XMonad.layoutHook XMonad.defaultConfig }
+_test = unlines $ showKm $ defaultKeysDescr XMonad.def { XMonad.layoutHook = XMonad.Layout $ XMonad.layoutHook XMonad.def }
 
 showKm :: [((KeyMask, KeySym), NamedAction)] -> [String]
 showKm keybindings = padding $ do
@@ -227,7 +227,7 @@ addDescrKeys' (k,f) ks conf =
         keylist l = M.map getAction $ M.fromList $ ks l ^++^ [(k, shk l)]
     in conf { keys = keylist }
 
--- | A version of the default keys from 'XMonad.Config.defaultConfig', but with
+-- | A version of the default keys from the default configuration, but with
 -- 'NamedAction'  instead of @X ()@
 defaultKeysDescr :: XConfig Layout -> [((KeyMask, KeySym), NamedAction)]
 defaultKeysDescr conf@(XConfig {XMonad.modMask = modm}) =
-- 
cgit v1.2.3