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

module Futhark.IR.SOACSTests () where

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

instance IsString (Lambda SOACS) where
  fromString :: String -> Lambda SOACS
fromString = String
-> (String -> Text -> Either Text (Lambda SOACS))
-> String
-> Lambda SOACS
forall a.
String -> (String -> Text -> Either Text a) -> String -> a
parseString String
"Lambda" String -> Text -> Either Text (Lambda SOACS)
parseLambdaSOACS

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

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