module Feldspar.Compiler.Options where

data Options =
    Options
    { platform          :: Platform
    , unroll            :: UnrollStrategy
    , debug             :: DebugOption
    , defaultArraySize  :: Int
    }

data Platform = AnsiC | C99 
data UnrollStrategy = NoUnroll | Unroll Int
data DebugOption = NoDebug | NoSimplification | NoPrimitiveInstructionHandling
    deriving Eq