mirror of
https://github.com/tensorflow/haskell.git
synced 2024-11-14 15:09:43 +01:00
Consistent whitespace usage
This commit is contained in:
parent
e68a414999
commit
b0e832809c
1 changed files with 7 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue