HROOT-math-0.9: src/HROOT/Math/TRandom/RawType.hs

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

data RawTRandom

newtype TRandom = TRandom (Ptr RawTRandom)
                deriving (Eq, Ord, Show)

instance FPtr TRandom where
        type Raw TRandom = RawTRandom
        get_fptr (TRandom ptr) = ptr
        cast_fptr_to_obj = TRandom