diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-13 08:14:18 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-13 08:14:18 +0100 |
| commit | 326386322d26b633672de37f045a53f18f2336a5 (patch) | |
| tree | f2f26d1b94fd79d01cfc97377a1b4e66c57ee1c1 /src/Ast.hs | |
| parent | d1fc24d2f17ca1649717c76a130db3869b6abc88 (diff) | |
| download | micro-lang-hs-326386322d26b633672de37f045a53f18f2336a5.tar.gz micro-lang-hs-326386322d26b633672de37f045a53f18f2336a5.zip | |
Probably better
Diffstat (limited to 'src/Ast.hs')
| -rw-r--r-- | src/Ast.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -25,3 +25,7 @@ data Op | Mul | Div deriving (Eq, Ord, Show) + +toFuncType :: [FuncParam] -> Maybe Type -> Type +toFuncType params rtyp = + FuncType (map (\(_, t, _) -> t) params) rtyp |