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

bugje uit <| gehaald

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