From e35d195cc3a5ecd78434a35c70eac9c620a05f35 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 30 Apr 2010 15:11:41 +0900
Subject: [PATCH] Using HscInterpreted.

---
 Check.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Check.hs b/Check.hs
index 2512f39..3b50795 100644
--- a/Check.hs
+++ b/Check.hs
@@ -61,7 +61,9 @@ setFlags d = d {
     importPaths = importPaths d ++ ["..","../..","../../..","../../../../.."]
   , packageFlags = ExposePackage "ghc" : packageFlags d
   , ghcLink = NoLink
-  , hscTarget = HscNothing
+-- GHC.desugarModule does not produces the pattern warnings, why?
+--  , hscTarget = HscNothing
+  , hscTarget = HscInterpreted
   }
 
 ----------------------------------------------------------------