Added proper error message to monomorphizer; made subst a monoid
This commit is contained in:
parent
4a635162a3
commit
f77793a132
4 changed files with 83 additions and 90 deletions
|
|
@ -144,7 +144,7 @@ main' opts s =
|
|||
when opts.logIL (printToErr "\n-- Lambda Lifter --" >> log lifted)
|
||||
|
||||
|
||||
let monomorphized = monomorphize lifted
|
||||
monomorphized <- fromErr $ monomorphize lifted
|
||||
when opts.logIL (printToErr "\n -- Monomorphizer --" >> log monomorphized)
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue