From 2c76c07d5a14f2aa5fecd6c589265cbad1d325e3 Mon Sep 17 00:00:00 2001 From: Bart Schuurmans Date: Tue, 17 Jan 2023 16:09:25 +0100 Subject: [PATCH] Consistent whitespace usage --- tensorflow/src/TensorFlow/Internal/Raw.chs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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