Gen.hs

{-# OPTIONS_GHC -Wno-orphans #-}

module SuperUserSpark.Compiler.Gen where

import TestImport

import SuperUserSpark.Compiler.Types
import SuperUserSpark.Language.Gen ()
import SuperUserSpark.PreCompiler.Gen ()

instance GenUnchecked CompileAssignment

instance GenValid CompileAssignment where
    genValid = CompileAssignment <$> genValid <*> genValid <*> genValid

instance GenUnchecked StrongCardFileReference

instance GenValid StrongCardFileReference

instance GenUnchecked CompileSettings

instance GenValid CompileSettings where
    genValid = CompileSettings <$> genValid <*> genValid

instance GenUnchecked a =>
         GenUnchecked (Deployment a) where
    genUnchecked = Deployment <$> genUnchecked <*> genUnchecked

instance GenValid a =>
         GenValid (Deployment a) where
    genValid = Deployment <$> genValid <*> genValid

instance GenUnchecked a =>
         GenUnchecked (DeploymentDirections a)

instance GenValid a =>
         GenValid (DeploymentDirections a) where
    genValid = Directions <$> genValid <*> genValid

instance GenUnchecked PrefixPart

instance GenValid PrefixPart

instance GenUnchecked CompilerState

instance GenValid CompilerState

instance GenUnchecked CompileError where
    genUnchecked =
        oneof
            [ PreCompileErrors <$> genUnchecked
            , DuringCompilationError <$> genUnchecked
            ]
    shrinkUnchecked _ = []

instance GenValid CompileError