@@ -201,7 +201,8 @@ expression (A region expr) =
201201 return $ ObjectLit () (ctor : fields es')
202202 where
203203 ctor = (prop "ctor", string name)
204− fields = zipWith (\n e -> (prop ("_" ++ show n), e)) [0..]
204+ fields =
205+ zipWith (\n e -> (prop ("_" ++ show n), e)) [ 0 :: Int .. ]
205206
206207 GLShader _uid src _tipe ->
207208 return $ ObjectLit () [(PropString () "src", literal (Str src))]
@@ -216,7 +217,7 @@ expression (A region expr) =
216217 Loopback name tipe maybeExpr ->
217218 case maybeExpr of
218219 Nothing ->
219− error "create writable stream"
220+ return $ obj ["_P","writableStream"] `call` [ string name ]
220221
221222 Just expr ->
222223 error "run the promises"