From effa8189b17aa50135b19d4a02579ec4059f29e1 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 28 Jan 2009 15:48:31 +0000
Subject: [PATCH] Disabled the pass that checks for unused variables for now as
 it runs too slowly

---
 checks/Check.hs  | 2 +-
 pass/PassList.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/checks/Check.hs b/checks/Check.hs
index 111a001..ded4c82 100644
--- a/checks/Check.hs
+++ b/checks/Check.hs
@@ -571,5 +571,5 @@ checkUnusedVar = forAnyASTStructBottomUpAccum doSpec
                when (not $ A.nameName name `elem` map A.nameName usedNames) $
                 do warnPC mspec WarnUnusedVariable $ formatCode "Unused variable: %" name
                    modify (\st -> st { csNames = Map.delete (A.nameName name) (csNames st) })
-                   substitute scope
+                   -- substitute scope
     doSpec _ = return ()
diff --git a/pass/PassList.hs b/pass/PassList.hs
index b601a72..11e53d6 100644
--- a/pass/PassList.hs
+++ b/pass/PassList.hs
@@ -68,8 +68,8 @@ commonPasses opts = concat $
   , enablePassesWhen csUsageChecking
      [abbrevCheckPass]
   , backendPasses
---  , [pass "Removing unused variables" [] []
---      (passOnlyOnAST "checkUnusedVar" (runChecks checkUnusedVar))]
+  , [pass "Removing unused variables" [] []
+      (passOnlyOnAST "checkUnusedVar" (runChecks checkUnusedVar))]
   ]
 
 filterPasses :: CompState -> [Pass t] -> [Pass t]