{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module OGDF.RankingModule.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawRankingModule

newtype RankingModule = RankingModule (Ptr RawRankingModule)
                          deriving (RankingModule -> RankingModule -> Bool
(RankingModule -> RankingModule -> Bool)
-> (RankingModule -> RankingModule -> Bool) -> Eq RankingModule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RankingModule -> RankingModule -> Bool
== :: RankingModule -> RankingModule -> Bool
$c/= :: RankingModule -> RankingModule -> Bool
/= :: RankingModule -> RankingModule -> Bool
Eq, Eq RankingModule
Eq RankingModule
-> (RankingModule -> RankingModule -> Ordering)
-> (RankingModule -> RankingModule -> Bool)
-> (RankingModule -> RankingModule -> Bool)
-> (RankingModule -> RankingModule -> Bool)
-> (RankingModule -> RankingModule -> Bool)
-> (RankingModule -> RankingModule -> RankingModule)
-> (RankingModule -> RankingModule -> RankingModule)
-> Ord RankingModule
RankingModule -> RankingModule -> Bool
RankingModule -> RankingModule -> Ordering
RankingModule -> RankingModule -> RankingModule
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: RankingModule -> RankingModule -> Ordering
compare :: RankingModule -> RankingModule -> Ordering
$c< :: RankingModule -> RankingModule -> Bool
< :: RankingModule -> RankingModule -> Bool
$c<= :: RankingModule -> RankingModule -> Bool
<= :: RankingModule -> RankingModule -> Bool
$c> :: RankingModule -> RankingModule -> Bool
> :: RankingModule -> RankingModule -> Bool
$c>= :: RankingModule -> RankingModule -> Bool
>= :: RankingModule -> RankingModule -> Bool
$cmax :: RankingModule -> RankingModule -> RankingModule
max :: RankingModule -> RankingModule -> RankingModule
$cmin :: RankingModule -> RankingModule -> RankingModule
min :: RankingModule -> RankingModule -> RankingModule
Ord, Int -> RankingModule -> ShowS
[RankingModule] -> ShowS
RankingModule -> String
(Int -> RankingModule -> ShowS)
-> (RankingModule -> String)
-> ([RankingModule] -> ShowS)
-> Show RankingModule
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RankingModule -> ShowS
showsPrec :: Int -> RankingModule -> ShowS
$cshow :: RankingModule -> String
show :: RankingModule -> String
$cshowList :: [RankingModule] -> ShowS
showList :: [RankingModule] -> ShowS
Show)

instance () => FPtr (RankingModule) where
        type Raw RankingModule = RawRankingModule
        get_fptr :: RankingModule -> Ptr (Raw RankingModule)
get_fptr (RankingModule Ptr RawRankingModule
ptr) = Ptr (Raw RankingModule)
Ptr RawRankingModule
ptr
        cast_fptr_to_obj :: Ptr (Raw RankingModule) -> RankingModule
cast_fptr_to_obj = Ptr (Raw RankingModule) -> RankingModule
Ptr RawRankingModule -> RankingModule
RankingModule