wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Xmonad] Rename fork -> forkM

Browse Source
This commit is contained in:
Ivan Malison 2016-11-25 18:39:27 -08:00
parent 640b016cf9
commit 6eae7024f8
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/xmonad/xmonad.hs
View File

@ -67,13 +67,14 @@ main = xmonad $ def
-- Utility functions -- Utility functions
fork :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b) fork :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b)
fork a b input = do forkM :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b)
forkM a b input = do
resA <- a input resA <- a input
resB <- b input resB <- b input
return (resA, resB) return (resA, resB)
tee :: Monad m => (i -> m a) -> (i -> m b) -> i -> m a tee :: Monad m => (i -> m a) -> (i -> m b) -> i -> m a
tee = (fmap . fmap . fmap) (fmap fst) fork tee = (fmap . fmap . fmap) (fmap fst) forkM
(>>=/) :: Monad m => m a -> (a -> m b) -> m a (>>=/) :: Monad m => m a -> (a -> m b) -> m a
(>>=/) a = (a >>=) . tee return (>>=/) a = (a >>=) . tee return