eeva
/
tensorflow-haskell
mirror of https://github.com/tensorflow/haskell.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Consistent whitespace usage

This commit is contained in:
Bart Schuurmans 2023-01-17 16:09:25 +01:00 committed by fkm3
parent e68a414999
commit b0e832809c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tensorflow/src/TensorFlow/Internal/Raw.chs
View File

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