diff options
| author | Einhard Leichtfuß <alguien@respiranto.de> | 2025-05-21 11:32:24 +0200 |
|---|---|---|
| committer | Einhard Leichtfuß <alguien@respiranto.de> | 2025-05-21 11:32:24 +0200 |
| commit | 1f5c0696463a48d9fcf7410aeaecaf83c2eef1bc (patch) | |
| tree | 464f8d39570ab84882bbcbfc0e8bf30c7337a642 /src/Language/SimpleShell/AST | |
| parent | 689732c084b9bc017b9015b8b151088fe057464c (diff) | |
Add Module parser skeleton
Diffstat (limited to 'src/Language/SimpleShell/AST')
| -rw-r--r-- | src/Language/SimpleShell/AST/Name.hs | 3 | ||||
| -rw-r--r-- | src/Language/SimpleShell/AST/SimpleType.hs | 6 |
2 files changed, 9 insertions, 0 deletions
diff --git a/src/Language/SimpleShell/AST/Name.hs b/src/Language/SimpleShell/AST/Name.hs index 69162db..3ca08f4 100644 --- a/src/Language/SimpleShell/AST/Name.hs +++ b/src/Language/SimpleShell/AST/Name.hs @@ -9,6 +9,9 @@ where import Data.Text (Text) +-- TODO: Replace type aliases by proper types. + + type VarName = Text type FunName = Text diff --git a/src/Language/SimpleShell/AST/SimpleType.hs b/src/Language/SimpleShell/AST/SimpleType.hs index a919529..6c2f916 100644 --- a/src/Language/SimpleShell/AST/SimpleType.hs +++ b/src/Language/SimpleShell/AST/SimpleType.hs @@ -2,10 +2,14 @@ module Language.SimpleShell.AST.SimpleType ( SimpleType(..) , Typed , FunSig + , ProcedureSig ) where +-- TODO: Replace type aliases by proper types. + + data SimpleType = IntType | StrType @@ -15,3 +19,5 @@ data SimpleType type Typed a = (SimpleType, a) type FunSig = (SimpleType, [SimpleType]) + +type ProcedureSig = (SimpleType, [SimpleType]) |