{-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
module Torch.Types.THC.Int where
import Foreign.C.Types
import Foreign
import GHC.TypeLits (Nat)
import GHC.Int
import Torch.Types.THC
type CTensor = CIntTensor
type CStorage = CIntStorage
type CReal = CInt
type CAccReal = CLong
type HsReal = Int32
type HsAccReal = Int64
real2acc :: HsReal -> HsAccReal
real2acc = fromIntegral
acc2real :: HsAccReal -> HsReal
acc2real = fromIntegral
hs2cReal :: HsReal -> CReal
hs2cReal = fromIntegral
hs2cAccReal :: HsAccReal -> CAccReal
hs2cAccReal = fromIntegral
c2hsReal :: CReal -> HsReal
c2hsReal = fromIntegral
c2hsAccReal :: CAccReal -> HsAccReal
c2hsAccReal = fromIntegral
type Storage = IntStorage
cstorage = snd . intStorageState
storage = intStorage
storageState = intStorageState
storageStateRef = fst . intStorageState
type Dynamic = IntDynamic
ctensor = snd . intDynamicState
dynamic = intDynamic
dynamicState = intDynamicState
dynamicStateRef = fst . intDynamicState
type Tensor = IntTensor
asDynamic = intAsDynamic
asStatic = intAsStatic