twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-09 00:11:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.Prelude: Add takeS

Browse Source
This commit is contained in:
Tony Zorman
2023-10-26 11:52:40 +02:00
parent f654082c5b
commit d668e4cb10
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Prelude.hs
View File

@@ -44,6 +44,7 @@ module XMonad.Prelude (
Stream(..), Stream(..),
(+~), (+~),
cycleS, cycleS,
takeS,
toList, toList,
fromList, fromList,
) where ) where
@@ -504,3 +505,8 @@ infixr 5 +~
-- | Absorb a non-empty list into an infinite stream. -- | Absorb a non-empty list into an infinite stream.
cycleS :: NonEmpty a -> Stream a cycleS :: NonEmpty a -> Stream a
cycleS (x :| xs) = s where s = x :~ xs +~ s cycleS (x :| xs) = s where s = x :~ xs +~ s
-- | @takeS n stream@ returns the first @n@ elements of @stream@; if @n < 0@,
-- this returns the empty list.
takeS :: Int -> Stream a -> [a]
takeS n = take n . toList