itask generates exception "Corrupt editor state in compound editor"
The family example in basic examples does approve a mariage to be added when viewed in a shared context. It generates an exception even though the editor is not really in a corrupt state. I assumed it is caused by the fact that you first have to enable the option otherwise you cannot fill in your partner, but at the same time the partner is inconsistent because you are about to define it.
enterFamily :: Task Family
enterFamily
= withShared defaultValue
\family -> (updateSharedInformation "Enter a family tree:" [] family
-&&-
viewSharedInformation "Show family tree:" [] family)
@ fst