diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2012-04-28 21:40:48 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2012-04-28 21:40:48 +0200 |
| commit | 4d4213405d3a3fcfc1a84920cba9fe5a2b2b1d2a (patch) | |
| tree | d9c2dc21a2f6552d00e2cecb360dd57c40e5767c /XMonad/Layout | |
| parent | 9b99267620146d41389f84e4b26df708223376b0 (diff) | |
| download | XMonadContrib-4d4213405d3a3fcfc1a84920cba9fe5a2b2b1d2a.tar.gz XMonadContrib-4d4213405d3a3fcfc1a84920cba9fe5a2b2b1d2a.tar.xz XMonadContrib-4d4213405d3a3fcfc1a84920cba9fe5a2b2b1d2a.zip | |
Remove trailing whitespace.
Ignore-this: d61584110954e84d3611ef3497a29725
darcs-hash:20120428194048-1499c-b4fab8db7cd56d5ca8496e1d3c9c2147a985cf55.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/OnHost.hs | 2 |
1 files changed, 1 insertions, 1 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 |