{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module OGDF.OptimalRanking.Implementation where import Data.Monoid import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import Language.Haskell.TH import Language.Haskell.TH.Syntax import System.IO.Unsafe import FFICXX.Runtime.Cast import FFICXX.Runtime.CodeGen.Cxx import FFICXX.Runtime.TH import OGDF.OptimalRanking.RawType import OGDF.OptimalRanking.FFI import OGDF.OptimalRanking.Interface import OGDF.OptimalRanking.Cast import OGDF.OptimalRanking.RawType import OGDF.OptimalRanking.Cast import OGDF.OptimalRanking.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface import OGDF.RankingModule.RawType import OGDF.RankingModule.Cast import OGDF.RankingModule.Interface instance () => IOptimalRanking (OptimalRanking) where instance () => IDeletable (OptimalRanking) where delete :: OptimalRanking -> IO () delete = (Ptr RawOptimalRanking -> IO ()) -> OptimalRanking -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawOptimalRanking -> IO () c_optimalranking_delete instance () => IRankingModule (OptimalRanking) where newOptimalRanking :: () => IO OptimalRanking newOptimalRanking :: IO OptimalRanking newOptimalRanking = IO (Ptr RawOptimalRanking) -> IO OptimalRanking forall a ca. Castable a ca => IO ca -> IO a xformnull IO (Ptr RawOptimalRanking) c_optimalranking_newoptimalranking