Commit 625880d3 authored by qrczak's avatar qrczak
Browse files

[project @ 2001-07-17 09:36:55 by qrczak]

Fix comment.
parent 05591cec
......@@ -311,7 +311,7 @@ resultWrapper result_ty
| isUnitTy result_ty_rep
= (Nothing, \e -> Var unitDataConId)
-- Base case 3: the boolean type ()
-- Base case 3: the boolean type
| isBoolTy result_ty_rep
= (Just intPrimTy, \e -> Case e (mkWildId intPrimTy)
[(DEFAULT ,[],Var trueDataConId ),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment