suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed conflicts in the Rain passes

Browse Source
This commit is contained in:
Neil Brown 2008-03-21 12:45:24 +00:00
parent 50ce3410b8
commit edf1060c9b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
frontends/RainTypes.hs
View File

@ -55,8 +55,8 @@ constantFoldPass = applyDepthM doExpression
doExpression = (liftM (\(x,_,_) -> x)) . constantFold doExpression = (liftM (\(x,_,_) -> x)) . constantFold
-- | Annotates all integer literal types -- | Annotates all integer literal types
annnotateIntLiteralTypes :: Data t => t -> PassM t annotateIntLiteralTypes :: Data t => t -> PassM t
annnotateIntLiteralTypes = everywhereASTM doExpression annotateIntLiteralTypes = applyDepthM doExpression
where where
--Function is separated out to easily provide the type description of Integer --Function is separated out to easily provide the type description of Integer
powOf2 :: Integer -> Integer powOf2 :: Integer -> Integer
@ -89,7 +89,7 @@ annnotateIntLiteralTypes = everywhereASTM doExpression
-- | Annotates all list literals and list ranges with their type -- | Annotates all list literals and list ranges with their type
annotateListLiteralTypes :: Data t => t -> PassM t annotateListLiteralTypes :: Data t => t -> PassM t
annotateListLiteralTypes = everywhereASTM doExpression annotateListLiteralTypes = applyDepthM doExpression
where where
doExpression :: A.Expression -> PassM A.Expression doExpression :: A.Expression -> PassM A.Expression
doExpression (A.Literal m _ (A.ListLiteral m' es)) doExpression (A.Literal m _ (A.ListLiteral m' es))