{-# LINE 1 "src/Data/Number/Flint/Fq/Types/FFI.hsc" #-}
{-# OPTIONS_HADDOCK hide, prune, ignore-exports #-}
module Data.Number.Flint.Fq.Types.FFI where
import Foreign.Ptr
import Foreign.ForeignPtr
import Foreign.C.Types
import Data.Number.Flint.Flint
import Data.Number.Flint.Fmpz.Poly
data Fq = Fq {-# UNPACK #-} !(ForeignPtr CFq)
type CFq = CFmpzPoly
data FqPoly = FqPoly {-# UNPACK #-} !(ForeignPtr CFqPoly)
type CFqPoly = CFlint FqPoly
data FqMat = FqMat {-# UNPACK #-} !(ForeignPtr CFqMat)
data CFqMat = CFqMat (Ptr CFq) CLong CLong (Ptr (Ptr CFq))