Commit 4cd619d1 authored by Bas Lijnse's avatar Bas Lijnse

Fixed 'cycle in spine' bug in date example. The culprit was 'let whom = toInt...

Fixed 'cycle in spine' bug in date example. The culprit was 'let whom = toInt whom' changing second variable name 'whom' to 'sel' fixed the problem.

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@307 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent a86eb4c6
......@@ -17,7 +17,7 @@ findDate :: Task (HtmlDate,HtmlTime)
findDate
= [Text "Choose person you want to date:",BrTag []]
?>> editTask "Set" (HtmlSelect [(toString i,toString i) \\ i <- [1..npersons - 1]] (toString 1))
=>> \(HtmlSelect _ whom) -> let whom = toInt whom
=>> \(HtmlSelect _ sel) -> let whom = toInt sel
in
[Text "Determining date:",BrTag [],BrTag []]
?>> findDate` whom (HtmlDate 1 1 2007,HtmlTime 9 0 0)
......
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