Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/56a8c8a607fcce698c277bdf68417ada3bbd05b5 >--------------------------------------------------------------- commit 56a8c8a607fcce698c277bdf68417ada3bbd05b5 Author: Simon Peyton Jones <[email protected]> Date: Thu Oct 4 17:50:24 2012 +0100 Comments only >--------------------------------------------------------------- compiler/deSugar/MatchLit.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs index 69d46c2..f6207f1 100644 --- a/compiler/deSugar/MatchLit.lhs +++ b/compiler/deSugar/MatchLit.lhs @@ -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] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
