colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki 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
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
resB <- b input
return (resA, resB)
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
(>>=/) a = (a >>=) . tee return