diff options
Diffstat (limited to 'src/Fun/Generator.hs')
| -rw-r--r-- | src/Fun/Generator.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Fun/Generator.hs b/src/Fun/Generator.hs new file mode 100644 index 0000000..17f47e3 --- /dev/null +++ b/src/Fun/Generator.hs @@ -0,0 +1,13 @@ +module Fun.Generator where + +import Fun.Tree +import Fun.Typer + +-- TODO: 'Merge' syntax for danger-asm: _merge (_asm ..) main (_asm ..) + +data GenerateError = GenerateError String + +generateAsm :: Tree -> Either GenerateError String +-- generateAsm (Tree t) = Right $ show t +generateAsm t = + Left $ GenerateError $ show $ getFunction t "_start" [InternalType "_void"] |