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

data RawMedianHeuristic

newtype MedianHeuristic = MedianHeuristic (Ptr RawMedianHeuristic)
                            deriving (MedianHeuristic -> MedianHeuristic -> Bool
(MedianHeuristic -> MedianHeuristic -> Bool)
-> (MedianHeuristic -> MedianHeuristic -> Bool)
-> Eq MedianHeuristic
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MedianHeuristic -> MedianHeuristic -> Bool
== :: MedianHeuristic -> MedianHeuristic -> Bool
$c/= :: MedianHeuristic -> MedianHeuristic -> Bool
/= :: MedianHeuristic -> MedianHeuristic -> Bool
Eq, Eq MedianHeuristic
Eq MedianHeuristic
-> (MedianHeuristic -> MedianHeuristic -> Ordering)
-> (MedianHeuristic -> MedianHeuristic -> Bool)
-> (MedianHeuristic -> MedianHeuristic -> Bool)
-> (MedianHeuristic -> MedianHeuristic -> Bool)
-> (MedianHeuristic -> MedianHeuristic -> Bool)
-> (MedianHeuristic -> MedianHeuristic -> MedianHeuristic)
-> (MedianHeuristic -> MedianHeuristic -> MedianHeuristic)
-> Ord MedianHeuristic
MedianHeuristic -> MedianHeuristic -> Bool
MedianHeuristic -> MedianHeuristic -> Ordering
MedianHeuristic -> MedianHeuristic -> MedianHeuristic
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 :: MedianHeuristic -> MedianHeuristic -> Ordering
compare :: MedianHeuristic -> MedianHeuristic -> Ordering
$c< :: MedianHeuristic -> MedianHeuristic -> Bool
< :: MedianHeuristic -> MedianHeuristic -> Bool
$c<= :: MedianHeuristic -> MedianHeuristic -> Bool
<= :: MedianHeuristic -> MedianHeuristic -> Bool
$c> :: MedianHeuristic -> MedianHeuristic -> Bool
> :: MedianHeuristic -> MedianHeuristic -> Bool
$c>= :: MedianHeuristic -> MedianHeuristic -> Bool
>= :: MedianHeuristic -> MedianHeuristic -> Bool
$cmax :: MedianHeuristic -> MedianHeuristic -> MedianHeuristic
max :: MedianHeuristic -> MedianHeuristic -> MedianHeuristic
$cmin :: MedianHeuristic -> MedianHeuristic -> MedianHeuristic
min :: MedianHeuristic -> MedianHeuristic -> MedianHeuristic
Ord, Int -> MedianHeuristic -> ShowS
[MedianHeuristic] -> ShowS
MedianHeuristic -> String
(Int -> MedianHeuristic -> ShowS)
-> (MedianHeuristic -> String)
-> ([MedianHeuristic] -> ShowS)
-> Show MedianHeuristic
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MedianHeuristic -> ShowS
showsPrec :: Int -> MedianHeuristic -> ShowS
$cshow :: MedianHeuristic -> String
show :: MedianHeuristic -> String
$cshowList :: [MedianHeuristic] -> ShowS
showList :: [MedianHeuristic] -> ShowS
Show)

instance () => FPtr (MedianHeuristic) where
        type Raw MedianHeuristic = RawMedianHeuristic
        get_fptr :: MedianHeuristic -> Ptr (Raw MedianHeuristic)
get_fptr (MedianHeuristic Ptr RawMedianHeuristic
ptr) = Ptr (Raw MedianHeuristic)
Ptr RawMedianHeuristic
ptr
        cast_fptr_to_obj :: Ptr (Raw MedianHeuristic) -> MedianHeuristic
cast_fptr_to_obj = Ptr (Raw MedianHeuristic) -> MedianHeuristic
Ptr RawMedianHeuristic -> MedianHeuristic
MedianHeuristic