{-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
module Torch.Types.THC.Short where
import Foreign.C.Types
import Foreign
import GHC.TypeLits (Nat)
import GHC.Int
import Torch.Types.THC
type CTensor = C'THCudaShortTensor
type CStorage = C'THCShortStorage
type CReal = CShort
type CAccReal = CLong
type HsReal = Int16
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 = ShortStorage
cstorage = snd . shortStorageState
storage = shortStorage
storageState = shortStorageState
storageStateRef = fst . shortStorageState
type Dynamic = ShortDynamic
ctensor = snd . shortDynamicState
dynamic = shortDynamic
dynamicState = shortDynamicState
dynamicStateRef = fst . shortDynamicState
type Tensor = ShortTensor
asDynamic = shortAsDynamic
asStatic = shortAsStatic