ghcjs-base 0.8.0.0 → 0.8.0.1

raw patch · 4 files changed

+13/−13 lines, 4 files

Files

• GHCJS/Buffer.hs +1/−1
• JavaScript/Web/Canvas.hs +8/−8
• JavaScript/Web/XMLHttpRequest.hs +3/−3
• ghcjs-base.cabal +1/−1

@@ -192,7 +192,7 @@ foreign import javascript unsafe   "h$wrapBuffer" js_wrapBuffer :: SomeArrayBuffer any -> SomeBuffer any foreign import javascript unsafe-  "h$wrapBuffer($1.buf.slice($1.u8.byteOffset, $1.len))"+  "((x) => { return h$wrapBuffer(x.buf.slice(x.u8.byteOffset, x.len)); })"   js_clone :: SomeBuffer any1 -> IO (SomeBuffer any2) foreign import javascript unsafe   "((x) => { return x.len; })" js_byteLength :: SomeBuffer any -> Int

@@ -345,9 +345,9 @@   js_transform :: Double -> Double -> Double -> Double -> Double -> Double -> Context -> IO () foreign import javascript unsafe "(($1,$2,$3,$4,$5,$6,$7) => { $7.setTransform($1,$2,$3,$4,$5,$6); })"   js_setTransform :: Double -> Double -> Double -> Double -> Double -> Double -> Context -> IO ()-foreign import javascript unsafe "((x,y,z) => { x.scale(x,y); })"+foreign import javascript unsafe "((x,y,z) => { z.scale(x,y); })"   js_scale :: Double -> Double -> Context -> IO ()-foreign import javascript unsafe "((x,y,z) => { x.translate(x,y); })"+foreign import javascript unsafe "((x,y,z) => { z.translate(x,y); })"   js_translate  :: Double -> Double -> Context -> IO () foreign import javascript unsafe "((x,y) => { y.rotate(x); })"   js_rotate :: Double -> Context -> IO ()@@ -363,9 +363,9 @@   js_closePath :: Context -> IO () foreign import javascript unsafe "((x) => { x.clip(); })"   js_clip  :: Context -> IO ()-foreign import javascript unsafe "((x,y,z) => { x.moveTo(x,y); })"+foreign import javascript unsafe "((x,y,z) => { z.moveTo(x,y); })"   js_moveTo :: Double -> Double -> Context -> IO ()-foreign import javascript unsafe "((x,y,z) => { x.lineTo(x,y); })"+foreign import javascript unsafe "((x,y,z) => { z.lineTo(x,y); })"   js_lineTo :: Double -> Double -> Context -> IO () foreign import javascript unsafe "(($1,$2,$3,$4,$5) => { $5.quadraticCurveTo($1,$2,$3,$4); })"   js_quadraticCurveTo :: Double -> Double -> Double -> Double -> Context -> IO ()@@ -377,7 +377,7 @@   js_arcTo :: Double -> Double -> Double -> Double -> Double -> Context -> IO () foreign import javascript unsafe "(($1,$2,$3,$4,$5) => { $5.rect($1,$2,$3,$4); })"   js_rect :: Double -> Double -> Double -> Double -> Context -> IO ()-foreign import javascript unsafe "((x,y,z) => { x.isPointInPath(x,y); })"+foreign import javascript unsafe "((x,y,z) => { z.isPointInPath(x,y); })"   js_isPointInPath :: Double -> Double -> Context -> IO () foreign import javascript unsafe   "(($1,$2,$3,$4,$5) => { $5.fillStyle = 'rgba(' + $1 + ',' + $2 + ',' + $3 + ',' + $4 + ')'; })"@@ -420,13 +420,13 @@   js_strokeRect :: Double -> Double -> Double -> Double -> Context -> IO () foreign import javascript unsafe "(($1,$2,$3,$4,$5,$6) => { $6.drawImage($1,$2,$3,$4,$5); })"   js_drawImage :: Image -> Int -> Int -> Int -> Int -> Context -> IO () -foreign import javascript unsafe "((x,y,z) => { return x.createPattern(x,y); })"+foreign import javascript unsafe "((x,y,z) => { return z.createPattern(x,y); })"   js_createPattern :: Image -> JSString -> Context -> IO Pattern foreign import javascript unsafe "((x) => { return x.width; })"   js_width :: Canvas -> IO Int foreign import javascript unsafe "((x) => { return x.height; })"   js_height :: Canvas -> IO Int-foreign import javascript unsafe "((x,y) => { return y.width = x;; })"+foreign import javascript unsafe "((x,y) => { return y.width = x; })"   js_setWidth :: Int -> Canvas -> IO ()-foreign import javascript unsafe "((x,y) => { return y.height = x;; })"+foreign import javascript unsafe "((x,y) => { return y.height = x; })"   js_setHeight :: Int -> Canvas -> IO ()

@@ -215,13 +215,13 @@   "((x) => { return x.abort(); })"   js_abort :: XHR -> IO () foreign import javascript unsafe-  "((x,y,z) => { x.setRequestHeader(x,y); })"+  "((x,y,z) => { z.setRequestHeader(x,y); })"   js_setRequestHeader :: JSString -> JSString -> XHR -> IO () foreign import javascript unsafe-  "((x,y,z) => { x.open(x,y); })"+  "((x,y,z) => { z.open(x,y); })"   js_open2 :: JSString -> JSString -> XHR -> IO () foreign import javascript unsafe-  "(($1,$2,$3,$4,$5) => { $5.open($1,$2,true,$4,$5); })"+  "(($1,$2,$3,$4,$5) => { $5.open($1,$2,true,$3,$4); })"   js_open4 :: JSString -> JSString -> JSString -> JSString -> XHR -> IO () foreign import javascript unsafe   "new FormData()"

@@ -1,6 +1,6 @@ cabal-version:       3.0 name:                ghcjs-base-version:             0.8.0.0+version:             0.8.0.1 synopsis:            base library for GHCJS homepage:            http://github.com/ghcjs/ghcjs-base license:             MIT