{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} module HROOT.Class.TTreeSQL.Cast where import Foreign.Ptr import Foreign.ForeignPtr import HROOT.TypeCast import System.IO.Unsafe import HROOT.Class.TTreeSQL.RawType import HROOT.Class.TTreeSQL.Interface instance (ITTreeSQL a, FPtr a) => Castable a (Ptr RawTTreeSQL) where cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ instance Castable TTreeSQL (Ptr RawTTreeSQL) where cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_