diff --git a/tensorflow/src/TensorFlow/Internal/Raw.chs b/tensorflow/src/TensorFlow/Internal/Raw.chs index c7e6d5d..8e2c430 100644 --- a/tensorflow/src/TensorFlow/Internal/Raw.chs +++ b/tensorflow/src/TensorFlow/Internal/Raw.chs @@ -21,12 +21,12 @@ module TensorFlow.Internal.Raw where import Foreign import Foreign.C -{#enum TF_DataType as DataType {} deriving (Show, Eq) #} -{#enum TF_Code as Code {} deriving (Show, Eq) #} +{# enum TF_DataType as DataType {} deriving (Show, Eq) #} +{# enum TF_Code as Code {} deriving (Show, Eq) #} -- Status. -{#pointer *TF_Status as Status newtype #} +{# pointer *TF_Status as Status newtype #} newStatus :: IO Status newStatus = {# call TF_NewStatus as ^ #} @@ -46,16 +46,16 @@ message = {# call TF_Message as ^ #} -- Buffer. data Buffer -{#pointer *TF_Buffer as BufferPtr -> Buffer #} +{# pointer *TF_Buffer as BufferPtr -> Buffer #} getBufferData :: BufferPtr -> IO (Ptr ()) -getBufferData = {#get TF_Buffer->data #} +getBufferData = {# get TF_Buffer->data #} getBufferLength :: BufferPtr -> IO CULong -getBufferLength ={#get TF_Buffer->length #} +getBufferLength = {# get TF_Buffer->length #} -- Tensor. -{#pointer *TF_Tensor as Tensor newtype #} +{# pointer *TF_Tensor as Tensor newtype #} instance Storable Tensor where sizeOf (Tensor t) = sizeOf t