module System.LibVirt.Internal
(Connection (..), Domain (..), Network (..)
) where
import Data.Generics
import Foreign
import Foreign.C.Types
import Foreign.C.String
newtype Connection = Connection (Ptr (Connection))
deriving instance Eq Connection
deriving instance Data Connection
deriving instance Typeable Connection
instance Show Connection where
show (Connection ptr) = "<Connection: " ++ show ptr ++ ">"
newtype Domain = Domain (Ptr (Domain))
deriving instance Eq Domain
deriving instance Data Domain
deriving instance Typeable Domain
instance Show Domain where
show (Domain ptr) = "<Domain: " ++ show ptr ++ ">"
newtype Network = Network (Ptr (Network))
deriving instance Eq Network
deriving instance Data Network
deriving instance Typeable Network
instance Show Network where
show (Network ptr) = "<Network: " ++ show ptr ++ ">"