From 12a5b624475b5975a662d6ad8d106a54cd10fcfc Mon Sep 17 00:00:00 2001
From: Brian McKenna <brian@brianmckenna.org>
Date: Sun, 1 Apr 2012 03:43:14 +1000
Subject: [PATCH] Clean up deferred monad example

---
 examples/deferredmonad.roy | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/examples/deferredmonad.roy b/examples/deferredmonad.roy
index 8212167..8ba170d 100644
--- a/examples/deferredmonad.roy
+++ b/examples/deferredmonad.roy
@@ -1,21 +1,18 @@
 let deferred = {
-  return: \x -> $.when(x)
+  return: \x -> $.when x
   bind: \x f ->
-    let dfd = $.Deferred()
-    x.done(\val -> 
-      (f val).done(\val2 -> dfd.resolve val2)
+    let dfd = $.Deferred ()
+    x.done (\val ->
+      (f val).done dfd.resolve
     )
-    dfd.promise()
+    dfd.promise ()
 }
 
-let v = (do deferred
+let v = do deferred
   val <- $.ajax 'examples/helloworld.roy'
   val2 <- $.ajax 'examples/alias.roy'
   return val ++ val2
-)
 
-(do deferred
-  text <- v
-  console.log text
-  return text
+v.done (\x ->
+  console.log x
 )