Permalink
Browse files

+ Program is a named record

  • Loading branch information...
1 parent cd65cc5 commit 1fd169fa7048fa8f9a7698f063462185b3d54388 @Averethel committed Mar 12, 2013
Showing with 4 additions and 1 deletion.
  1. +4 −1 ClosureConvert/CSyntax.hs
@@ -132,7 +132,10 @@ module ClosureConvert.CSyntax where
instance Show FunDef where
show = show . pprFunDef
- data Program = P [FunDef] CExpr deriving Eq
+ data Program = P {
+ definitions :: [FunDef],
+ main :: CExpr
+ } deriving Eq
pprProgram :: Program -> Iseq
pprProgram (P [] e) = pprCExpr e

0 comments on commit 1fd169f

Please sign in to comment.