Commits

Alex Suraci committed 6455bf9

updates for latest atomo
Ignore-this: bb51ba239e7b6f88a8a603ceb276043b

Comments (0)

Files changed (2)

 
 load :: VM ()
 load = do
-    eval [$e|super HTTP = Object clone|]
-    eval [$e|super HTTP Response = Object clone|]
+    ([$p|super HTTP|] =::) =<< eval [$e|Object clone|]
+    ([$p|super HTTP Response|] =::) =<< eval [$e|Object clone|]
 
     [$p|HTTP get: (url: String)|] =: do
         url <- getString [$e|url|]
     toValue r@(Response { rspCode = (c1, c2, c3) }) = do
         ([$p|r|] =::) =<< eval [$e|HTTP Response clone|]
 
-        [$p|r code|] =:: list (map (Integer . fromIntegral) [c1, c2, c3])
+        [$p|{ r } code|] =:: list (map (Integer . fromIntegral) [c1, c2, c3])
 
-        [$p|r reason|] =:: string (rspReason r)
+        [$p|{ r } reason|] =:: string (rspReason r)
 
         headers <- forM (rspHeaders r) $ \(Header n v) ->
             dispatch (keyword ["->"] [string (show n), string v])
 
-        [$p|r headers|] =:: list headers
+        [$p|{ r } headers|] =:: list headers
 
-        [$p|r body|] =:: string (rspBody r)
+        [$p|{ r } body|] =:: string (rspBody r)
         here "r"
 
     fromValue _ = raise' "no-from-response"
 name: "http"
 description: "interface for Network.HTTP"
-version: 0 . 1
+version: (0 . 1)
 author: "Alex Suraci"