Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

created dummy monomorphizer

Browse source
This commit is contained in:
sebastianselander 2023-03-23 17:20:19 +01:00
parent 42c8ebc7b6
commit e3df4192bb
6 changed files with 279 additions and 393 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/Monomorphizer/Monomorphizer.hs
View file

@ -1 +1,17 @@
module Monomorphizer.Monomorphizer where
module Monomorphizer.Monomorphizer (monomorphize) where
import Monomorphizer.MonomorphizerIr
import TypeChecker.TypeCheckerIr qualified as T
monomorphize :: T.Program -> Program
monomorphize (T.Program ds) = Program $ monoDefs ds
monoDefs :: [T.Def] -> [Def]
monoDefs = map monoDef
monoDef :: T.Def -> Def
monoDef (T.DBind bind) = DBind $ monoBind bind
monoDef (T.DData d) = DData d
monoBind :: T.Bind -> Bind
monoBind (T.Bind name args e) = Bind name args e