Skip to content

Commit 1017b0c

Browse files
committed
implement js_setLineDash and js_lineDashOffSet
simple FFI wrappers in the Canvas module
1 parent 23b1311 commit 1017b0c

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

JavaScript/Web/Canvas.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -389,9 +389,9 @@ foreign import javascript unsafe "$2.lineCap = $1"
389389
js_lineCap :: JSString -> Context -> IO ()
390390
foreign import javascript unsafe "$2.miterLimit = $1"
391391
js_miterLimit :: Double -> Context -> IO ()
392-
foreign import javascript unsafe "h$ghcjs_setLineDash($1,$2)"
392+
foreign import javascript unsafe "$2.setLineDash($1)"
393393
js_setLineDash :: JSArray -> Context -> IO ()
394-
foreign import javascript unsafe "h$ghcjs_lineDashOffset($1,$2)"
394+
foreign import javascript unsafe "$2.lineDashOffset = $1"
395395
js_lineDashOffset :: Double -> Context -> IO ()
396396
foreign import javascript unsafe "$2.font = $1"
397397
js_font :: JSString -> Context -> IO ()

0 commit comments

Comments
 (0)