
27 May
2019
27 May
'19
5:10 a.m.
On May 27, 2019, at 1:07 AM, Magicloud Magiclouds
wrote: ``` status <- ioOperation -- IO-ed anyway return $ pureComputing || (status && pure2) ```
With two helpers: (<&&>) :: IO Bool -> IO Bool -> IO Bool (<&&>) ma mb = ma >>= (\a -> if not a then return False else mb) (<||>) :: IO Bool -> IO Bool -> IO Bool (<||>) ma mb = ma >>= (\a -> if a then return True else mb) you'd write: pure preComputing <||> (ioOperation <&&> pure pure2) You could even define suitable fixity to make <&&> have higher precedence than <||> and not need any parentheses. -- Viktor.