{-# OPTIONS_GHC -fno-warn-orphans #-}

module Futhark.IR.GPUTests () where

import Data.String
import Futhark.IR.GPU
import Futhark.IR.Parse
import Futhark.IR.SyntaxTests (parseString)

-- There isn't anything to test in this module, but we define some
-- convenience instances.

instance IsString (Stm GPU) where
  fromString :: String -> Stm GPU
fromString = String
-> (String -> Text -> Either Text (Stm GPU)) -> String -> Stm GPU
forall a.
String -> (String -> Text -> Either Text a) -> String -> a
parseString String
"Stm GPU" String -> Text -> Either Text (Stm GPU)
parseStmGPU

instance IsString (Body GPU) where
  fromString :: String -> Body GPU
fromString = String
-> (String -> Text -> Either Text (Body GPU)) -> String -> Body GPU
forall a.
String -> (String -> Text -> Either Text a) -> String -> a
parseString String
"Body GPU" String -> Text -> Either Text (Body GPU)
parseBodyGPU

instance IsString (Prog GPU) where
  fromString :: String -> Prog GPU
fromString = String
-> (String -> Text -> Either Text (Prog GPU)) -> String -> Prog GPU
forall a.
String -> (String -> Text -> Either Text a) -> String -> a
parseString String
"Prog GPU" String -> Text -> Either Text (Prog GPU)
parseGPU