module IntermediateCode(process) where

-- imports --
import InterfaceDT as IDT

import LLVM.General.AST
import qualified LLVM.General.AST as AST

initModule :: AST.Module
initModule = defaultModule { moduleName = "rail-heaven" }

-- functions --
process :: IDT.SemAna2InterCode -> AST.Module
process input = initModule

module IntermediateCode(process) where

-- imports --
import InterfaceDT as IDT

import LLVM.General.AST
import qualified LLVM.General.AST as AST

initModule :: AST.Module
initModule = defaultModule { moduleName = "rail-heaven" }

-- functions --
process :: IDT.SemAna2InterCode -> IDT.InterCode2CodeOpt
process input = IDT.IIC initModule

Fix type error in intermediate code generation.
Fix type error in intermediate code generation.
