X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsExpr.lhs;h=68bf3f1f42b9d8d4dc75ee6e39ff4fb2728a94ff;hb=235edf36cc202bb21c00d0e5e05ebf076fb0542e;hp=66c57de07408869bcdeb85f36c8232302c0c82ce;hpb=7fc749a43b4b6b85d234fa95d4928648259584f4;p=ghc-hetmet.git diff --git a/compiler/deSugar/DsExpr.lhs b/compiler/deSugar/DsExpr.lhs index 66c57de..68bf3f1 100644 --- a/compiler/deSugar/DsExpr.lhs +++ b/compiler/deSugar/DsExpr.lhs @@ -181,7 +181,7 @@ scrungleMatch var scrut body scrungle (Let binds body) = Let binds (scrungle body) scrungle other = panic ("scrungleMatch: tuple pattern:\n" ++ showSDoc (ppr other)) -\end{code} +\end{code} %************************************************************************ %* *