Commit 56a8c8a6 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent 65e6470c
......@@ -107,7 +107,7 @@ dsOverLit' dflags (OverLit { ol_val = val, ol_rebindable = rebindable
, ol_witness = witness, ol_type = ty })
| not rebindable
, Just expr <- shortCutLit dflags val ty = dsExpr expr -- Note [Literal short cut]
| otherwise = dsExpr witness
| otherwise = dsExpr witness
\end{code}
Note [Literal short cut]
......
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