Skip to content

Commit

Permalink
haddock
Browse files Browse the repository at this point in the history
  • Loading branch information
geekosaur committed May 4, 2023
1 parent 6e48d47 commit 8ea47cb
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions XMonad/Layout/PerScreen.hs
Original file line number Diff line number Diff line change
Expand Up @@ -52,10 +52,15 @@ import Data.List (find)
-- 'onScreen' can also be used inside other layout combinators, although the
-- result may be confusing.

-- | Specify a layout to run on a given screen.
onScreen :: (LayoutClass l1 a, LayoutClass l2 a)
=> ScreenId -> l1 a -> l2 a -> OnScreen l1 l2 a
onScreen s = onScreens [s]

-- | Specify a layout to run on a list of screens.
-- Note that this works by 'ScreenId'. It has a 'Num' instance, so literal
-- screen numbers will work as expected, but if you use a binding you need
-- to use the 'S' constructor.
onScreens :: (LayoutClass l1 a, LayoutClass l2 a)
=> [ScreenId] -> l1 a -> l2 a -> OnScreen l1 l2 a
onScreens ss l1 l2 = OnScreen ss l1 l2 False -- @@@ is this right?
Expand Down

0 comments on commit 8ea47cb

Please sign in to comment.