haskell-src-exts-1.24.0: tests/examples/AtSign.hs.prettyprinter.golden

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TypeApplications #-}
module Data.Array.Accelerate.CUFFT.Private where
transform hndl@(Handle fallback mode width _)
  = wrap mode (A.constant width) $
      A.foreignAcc
        (AF.CUDAForeignAcc "transformForeign" $ transformForeign hndl)
        (unwrap mode (A.constant width) fallback)