Commit 1265a713 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

*** empty log message ***


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@128 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 96b08362
......@@ -3,9 +3,9 @@ definition module iTasks2
// (c) iTask & iData Concept and Implementation by Rinus Plasmeijer, 2006-2008 - MJP
// *********************************************************************************************************************************
// a collection of handy iTasks combinators defined in terms of primitive iTask combinators
// a collection of handy iTasks combinators defined in terms of the basic iTask combinators defined in module iTasks
// with Thanks to Erik Zuurbier for suggesting: (=?>), (-?&-), multiAndTask
// with Thanks to Erik Zuurbier for suggesting: (=>>?), (-&&-?), multiAndTask
// *********************************************************************************************************************************
import iTasks
......
......@@ -149,10 +149,10 @@ where
combineResult [LEFT (Just r1),RIGHT (Just r2)] = return_V (Just (r1,r2))
combineResult _ = return_V Nothing
noNothing [] = False
noNothing [] = False
noNothing [LEFT Nothing:xs] = True
noNothing [RIGHT Nothing:xs] = True
noNothing [x:xs] = noNothing xs
noNothing [x:xs] = noNothing xs
multiAndTask :: !(LabeledTask a) -> Task Void | iData a
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment