nu werkt hij wel

diff --git a/a5/charlie/ap5.icl b/a5/charlie/ap5.icl
index b7ca283..d22f995 100644 (file)
--- a/a5/charlie/ap5.icl
+++ b/a5/charlie/ap5.icl
@@ -46,12 +46,11 @@ notMyIdea :: String TrackedIdea -> Bool
 notMyIdea user idea | idea.user == user = False\r
                     | otherwise = True\r
 \r
-shortIdeas :: [TrackedIdea] -> [ShortIdea]\r
-shortIdeas [] = []\r
-shortIdeas [idea:ideas] = [{creator=idea.user, title=idea.idea.ideaTitle}:shortIdeas ideas]\r
+shortIdeas :: TrackedIdea -> ShortIdea\r
+shortIdeas idea = {creator=idea.user, title=idea.idea.ideaTitle}\r
 \r
 viewIdeas :: String -> Task TrackedIdea\r
-viewIdeas user = (enterChoiceWithShared "All ideas" [ViewWith shortIdeas] theIdeas\r
+viewIdeas user = (enterChoiceWithShared "All ideas" [ChooseWith (AutoChoice shortIdeas)] theIdeas\r
        >&^ viewSharedInformation "Selected idea" []) \r
                >>* [OnAction (Action "Clear selection" []) (\value . Just (viewIdeas user)),\r
                     OnAction (Action "Like" []) (ifValue (notMyIdea user) (likeUserIdea user)),\r