X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FdeSugar%2FDsExpr.lhs;h=68bf3f1f42b9d8d4dc75ee6e39ff4fb2728a94ff;hb=b6d08641e2757898470a10dfa906084ade8ab835;hp=66c57de07408869bcdeb85f36c8232302c0c82ce;hpb=a003ad80d59f8da861d874f7314b68c20e1afd67;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} %************************************************************************ %* *