fltkhs 0.7.0.1 → 0.7.0.2

raw patch · 3 files changed

+7/−6 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• fltk-master.zip too large to diff
• fltkhs.cabal +1/−1
• src/Graphics/UI/FLTK/LowLevel/SVGImage.chs +6/−5

file too large to diff

@@ -1,5 +1,5 @@ name : fltkhs-version : 0.7.0.1+version : 0.7.0.2 synopsis : FLTK bindings description: Low level bindings for the FLTK GUI toolkit. For installation and quick start instruction please scroll all the way down to the README. license : MIT

@@ -32,11 +32,12 @@   checkImage ref'  svgImageNew :: B.ByteString -> IO (Either UnknownError (Ref SVGImage))-svgImageNew svgData' = do-  dataPtr <- copyByteStringToCString svgData'-  ptr <- svgImageNewWithData' (castPtr nullPtr) dataPtr-  ref' <- (toRef ptr :: IO (Ref SVGImage))-  checkImage ref'+svgImageNew svgData' =+  B.useAsCString svgData' (\dataPtr -> do+    ptr <- svgImageNewWithData' (castPtr nullPtr) dataPtr+    ref' <- (toRef ptr :: IO (Ref SVGImage))+    checkImage ref'+  )  {# fun Fl_SVG_Image_Destroy as flImageDestroy' { id `Ptr ()' } -> `()' id #} instance (impl ~ (IO ())) => Op (Destroy ()) SVGImage orig impl where