From 4d4213405d3a3fcfc1a84920cba9fe5a2b2b1d2a Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sat, 28 Apr 2012 21:40:48 +0200 Subject: Remove trailing whitespace. Ignore-this: d61584110954e84d3611ef3497a29725 darcs-hash:20120428194048-1499c-b4fab8db7cd56d5ca8496e1d3c9c2147a985cf55.gz --- XMonad/Layout/OnHost.hs | 2 +- XMonad/Prompt.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Layout/OnHost.hs b/XMonad/Layout/OnHost.hs index e14a24c..f69bbb3 100644 --- a/XMonad/Layout/OnHost.hs +++ b/XMonad/Layout/OnHost.hs @@ -116,7 +116,7 @@ data OnHost l1 l2 a = OnHost [String] instance (LayoutClass l1 a, LayoutClass l2 a, Show a) => LayoutClass (OnHost l1 l2) a where runLayout (W.Workspace i p@(OnHost hosts _ lt lf) ms) r = do h <- io $ getEnv "HOST" - if maybe False (`elemFQDN` hosts) h + if maybe False (`elemFQDN` hosts) h then do (wrs, mlt') <- runLayout (W.Workspace i lt ms) r return (wrs, Just $ mkNewOnHostT p mlt') else do (wrs, mlt') <- runLayout (W.Workspace i lf ms) r diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 802bdd0..70a7aa4 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -453,7 +453,7 @@ emacsLikeXPKeymap = M.fromList $ , (xK_b, moveCursor Prev) -- move cursor forward , (xK_f, moveCursor Next) -- move cursor backward , (xK_BackSpace, killWord Prev) -- kill the previous word - , (xK_y, pasteString) + , (xK_y, pasteString) , (xK_g, quit) , (xK_bracketleft, quit) ] ++ -- cgit v1.2.3