Commit 4ea65986 authored by sof's avatar sof
Browse files

[project @ 1997-05-26 03:14:46 by sof]

Cosmetics
parent d2a5d528
......@@ -779,8 +779,7 @@ mkCoCase env scrut (AlgAlts outer_alts
v | scrut_is_var = Var scrut_var
| otherwise = Con con (map TyArg arg_tys ++ map VarArg args)
arg_tys = --trace "SimplCase:getAppData...:2" $
case (getAppDataTyConExpandingDicts (idType deflt_var)) of
arg_tys = case (getAppDataTyConExpandingDicts (idType deflt_var)) of
(_, arg_tys, _) -> arg_tys
mkCoCase env scrut (PrimAlts
......
Supports Markdown
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