{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Data.Array.Accelerate.LLVM.Native.Execute.Async (
Async, Stream, Event,
module Data.Array.Accelerate.LLVM.Execute.Async,
) where
import Data.Array.Accelerate.LLVM.Execute.Async hiding ( Async )
import qualified Data.Array.Accelerate.LLVM.Execute.Async as A
import Data.Array.Accelerate.LLVM.Native.Target
type Async a = A.AsyncR Native a
type Stream = A.StreamR Native
type Event = A.EventR Native
instance A.Async Native where
type StreamR Native = ()
type EventR Native = ()
{-# INLINE fork #-}
fork = return ()
{-# INLINE join #-}
join () = return ()
{-# INLINE checkpoint #-}
checkpoint () = return ()
{-# INLINE after #-}
after () () = return ()
{-# INLINE block #-}
block () = return ()