diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-04 17:50:24 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-04 17:50:24 +0100 |
| commit | 56a8c8a607fcce698c277bdf68417ada3bbd05b5 (patch) | |
| tree | 2482cf863ffd14840d58c51ba572b30825c52c75 /compiler | |
| parent | 65e6470c39e9d45cbdb7834486bcae7f4a6259e6 (diff) | |
| download | haskell-56a8c8a607fcce698c277bdf68417ada3bbd05b5.tar.gz | |
Comments only
Diffstat (limited to 'compiler')
| -rw-r--r-- | 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 69d46c2096..f6207f1a13 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] |