blob: a3c27286779fb5b0c11bf582de59ee3195a76d7c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
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"]
|
