Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/564d0f5d31fc59c39f7781663442b93ca0de2d44 >--------------------------------------------------------------- commit 564d0f5d31fc59c39f7781663442b93ca0de2d44 Author: Ian Lynagh <[email protected]> Date: Tue Sep 27 21:44:51 2011 +0100 Fix warnings in coreSyn/CoreUtils.lhs >--------------------------------------------------------------- compiler/coreSyn/CoreUtils.lhs | 8 +------- 1 files changed, 1 insertions(+), 7 deletions(-) diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index fac97a5..82c0484 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -6,13 +6,6 @@ Utility functions on @Core@ syntax \begin{code} -{-# OPTIONS -fno-warn-incomplete-patterns #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details - -- | Commonly useful utilites for manipulating the Core language module CoreUtils ( -- * Constructing expressions @@ -1267,6 +1260,7 @@ hash_expr _ (Lit lit) = fromIntegral (hashLiteral lit) hash_expr env (App f e) = hash_expr env f * fast_hash_expr env e hash_expr env (Let (NonRec b r) e) = hash_expr (extend_env env b) e * fast_hash_expr env r hash_expr env (Let (Rec ((b,_):_)) e) = hash_expr (extend_env env b) e +hash_expr _ (Let (Rec []) _) = panic "hash_expr: Let (Rec []) _" hash_expr env (Case e _ _ _) = hash_expr env e hash_expr env (Lam b e) = hash_expr (extend_env env b) e hash_expr env (Coercion co) = fast_hash_co env co _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
