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"]