Updates from discussion

Author: ethul

examples/Backend/Main.purs

@@ -12,10 +12,9 @@ mainctrl http this = extendThis { text: ""
                                 , submit: submit } this
   where
     url = "http://localhost:9501/examples/Backend/main.html"
-    submit a = runPromiseEC (do p <- liftPromiseEC $ get url http
-                                q <- liftPromiseEC $ get url http
-                                return q) (either (\e -> extendThis { value: "Failed to get" ++ url } this)
-                                                  (\a -> extendThis { value: a."data" } this))
+    submit a = runPromiseEC (liftPromiseEC $ get url http)
+                            (either (\e -> extendThis { value: "Failed to get" ++ url } this)
+                                    (\a -> extendThis { value: a."data" } this))
 
 main = do
   m <- ngmodule' "backend" []

src/Angular/Http/Internal.purs

@@ -50,7 +50,7 @@ foreign import data ForeignResponse :: *
 
 foreign import unimplementedForeignResponse
   """
-    function foreignResponse(){
+    function unimplementedForeignResponse(){
       return {
       };
     }

src/Angular/Promise.purs

@@ -103,7 +103,7 @@ foreign import then2ECFn
         fa['then'](run(f), run(g));
       };
     }
-  """ :: forall e a b c d. Fn3 (b -> d) (a -> c) (Promise a b) (Eff e Unit)
+  """ :: forall e a b c. Fn3 (b -> c) (a -> c) (Promise a b) (Eff e Unit)
 
 promiseEC :: forall e a b. Promise a b -> PromiseEC e a b
 promiseEC = ErrorT <<< ContT <<< cb