src/Language/SimpleShell/AST/SimpleType.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

module Language.SimpleShell.AST.SimpleType
  ( SimpleType(..)
  , Typed
  , FunSig
  , ProcedureSig
  )
where


-- TODO: Replace type aliases by proper types.


data SimpleType
  = IntType
  | StrType
  | BoolType
  deriving (Show, Eq)

type Typed a = (SimpleType, a)

type FunSig = (SimpleType, [SimpleType])

type ProcedureSig = (SimpleType, [SimpleType])