blob: 17f47e3e89fcd8a87cbf971f7ef980fdb0a9ed26 (
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"]
|
