diff options
| -rw-r--r-- | XMonad/Layout/IndependentScreens.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/IndependentScreens.hs b/XMonad/Layout/IndependentScreens.hs index 0b5b996..17e782e 100644 --- a/XMonad/Layout/IndependentScreens.hs +++ b/XMonad/Layout/IndependentScreens.hs @@ -28,6 +28,7 @@ module XMonad.Layout.IndependentScreens ( ) where -- for the screen stuff +import Control.Applicative((<*), liftA2) import Control.Arrow hiding ((|||)) import Control.Monad import Data.List @@ -112,7 +113,7 @@ onCurrentScreen f vws = screen . current >>= f . flip marshall vws -- > } -- countScreens :: (MonadIO m, Integral i) => m i -countScreens = liftM genericLength . liftIO $ openDisplay "" >>= getScreenInfo +countScreens = liftM genericLength . liftIO $ openDisplay "" >>= liftA2 (<*) getScreenInfo closeDisplay -- | This turns a naive pretty-printer into one that is aware of the -- independent screens. That is, you can write your pretty printer to behave |