{-# LINE 1 "src/HROOT/Core/TAttCanvas/FFI.hsc" #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LINE 2 "src/HROOT/Core/TAttCanvas/FFI.hsc" #-} -- module HROOT.Class.FFI where module HROOT.Core.TAttCanvas.FFI where import Foreign.C import Foreign.Ptr -- import HROOT.Class.Interface -- #include "" import HROOT.Core.TAttCanvas.RawType {-# LINE 19 "src/HROOT/Core/TAttCanvas/FFI.hsc" #-} foreign import ccall "HROOTCoreTAttCanvas.h TAttCanvas_delete" c_tattcanvas_delete :: (Ptr RawTAttCanvas) -> IO () foreign import ccall "HROOTCoreTAttCanvas.h TAttCanvas_newTAttCanvas" c_tattcanvas_newtattcanvas :: IO (Ptr RawTAttCanvas)