Commit 052b17e6 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

bugje uit <| gehaald

parent bebbc18a
......@@ -54,13 +54,14 @@ where
= dorepeatTask na tst
(<|) infixl 6 :: !(Task a) !(a -> (Bool, HtmlCode)) -> Task a | iData a
(<|) taska pred = mkTask "repeatTest" doTask
(<|) taska pred = newTask "repeatTest" doTask
where
doTask
= taska
=>> \r -> case pred r of
(True,_) -> return_V r
(False,msg) -> msg ?>> doTask
// (False,msg) -> msg ?>> doTask
(False,msg) -> msg ?>> (taska <| pred)
// ******************************************************************************************************
......
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