9 [(Embedded, \stl->tune (Title "New Task") $ addTask stl
10 >>* [OnAction (Action "Close") (always (return ()))])
11 ] [] <<@ ArrangeWithTabs True
13 addTask :: (SharedTaskList ()) -> Task ()
15 = (enterInformation [] <<@ Label "Title") -&&- updateInformation [] "text"
16 >>! \(title, text)->appendTask Embedded
17 (\_->tune (Title title) $ viewInformation [] text @? const NoValue)