@@ -201,7 +201,8 @@ expression (A region expr) =
201 return $ ObjectLit () (ctor : fields es')
201 return $ ObjectLit () (ctor : fields es')
203 ctor = (prop "ctor", string name)
203 ctor = (prop "ctor", string name)
204− fields = zipWith (\n e -> (prop ("_" ++ show n), e)) [0..]
205+ zipWith (\n e -> (prop ("_" ++ show n), e)) [ 0 :: Int .. ]
206 GLShader _uid src _tipe ->
207 GLShader _uid src _tipe ->
207 return $ ObjectLit () [(PropString () "src", literal (Str src))]
208 return $ ObjectLit () [(PropString () "src", literal (Str src))]
@@ -216,7 +217,7 @@ expression (A region expr) =
216 Loopback name tipe maybeExpr ->
217 Loopback name tipe maybeExpr ->
217 case maybeExpr of
218 case maybeExpr of
218 Nothing ->
219 Nothing ->
219− error "create writable stream"
220+ return $ obj ["_P","writableStream"] `call` [ string name ]
221 Just expr ->
222 Just expr ->
222 error "run the promises"
223 error "run the promises"