{-# LANGUAGE TemplateHaskell #-}
module Futhark.CodeGen.RTS.OpenCL
( transposeCL,
preludeCL,
copyCL,
)
where
import Data.FileEmbed
import Data.Text qualified as T
transposeCL :: T.Text
transposeCL :: Text
transposeCL = $(embedStringFile "rts/opencl/transpose.cl")
{-# NOINLINE transposeCL #-}
preludeCL :: T.Text
preludeCL :: Text
preludeCL = $(embedStringFile "rts/opencl/prelude.cl")
{-# NOINLINE preludeCL #-}
copyCL :: T.Text
copyCL :: Text
copyCL = $(embedStringFile "rts/opencl/copy.cl")
{-# NOINLINE copyCL #-}