From d66fb797967d35962240f9d0dfefcf083836e0e0 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Mon, 10 Mar 2008 17:19:45 +0000
Subject: [PATCH] Fixed some unused module import warnings, now that PassM is
 not build of monad transformers

---
 Main.hs                    | 2 ++
 backends/GenerateCBased.hs | 2 ++
 backends/GenerateCTest.hs  | 2 ++
 common/TestHarness.hs      | 2 ++
 common/TestUtils.hs        | 2 ++
 frontends/ParseOccam.hs    | 1 +
 frontends/RainTypesTest.hs | 2 ++
 pass/Pass.hs               | 3 +++
 pass/Properties.hs         | 2 +-
 9 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index a0c5b3c..dceb8b1 100644
--- a/Main.hs
+++ b/Main.hs
@@ -19,8 +19,10 @@ with this program.  If not, see <http://www.gnu.org/licenses/>.
 -- | Driver for the compiler.
 module Main (main) where
 
+import Control.Monad.Error
 import Control.Monad.Identity
 import Control.Monad.State
+import Control.Monad.Writer
 import Data.Either
 import Data.Generics
 import Data.Maybe
diff --git a/backends/GenerateCBased.hs b/backends/GenerateCBased.hs
index 219ee0f..89843ea 100644
--- a/backends/GenerateCBased.hs
+++ b/backends/GenerateCBased.hs
@@ -19,8 +19,10 @@ with this program.  If not, see <http://www.gnu.org/licenses/>.
 -- | The function dictionary and various types and helper functions for backends based around C
 module GenerateCBased where
 
+import Control.Monad.Error
 import Control.Monad.Reader
 import Control.Monad.State
+import Control.Monad.Writer
 import Data.Generics
 import System.IO
 
diff --git a/backends/GenerateCTest.hs b/backends/GenerateCTest.hs
index e5c2876..64eb137 100644
--- a/backends/GenerateCTest.hs
+++ b/backends/GenerateCTest.hs
@@ -31,8 +31,10 @@ with this program.  If not, see <http://www.gnu.org/licenses/>.
 -- do a similar trick.
 module GenerateCTest (tests) where
 
+import Control.Monad.Error
 import Control.Monad.State
 import Control.Monad.Reader
+import Control.Monad.Writer hiding (tell)
 import Data.Generics
 import Data.List (isInfixOf, intersperse)
 import Data.Maybe (fromMaybe)
diff --git a/common/TestHarness.hs b/common/TestHarness.hs
index 111e86f..7b598ce 100644
--- a/common/TestHarness.hs
+++ b/common/TestHarness.hs
@@ -34,6 +34,8 @@ The file is terminated by a single percent on its own line.
 module TestHarness (automaticTest) where
 
 import Control.Monad.Error
+import Control.Monad.State
+import Control.Monad.Writer
 import Data.List
 import Data.Maybe
 import System.IO
diff --git a/common/TestUtils.hs b/common/TestUtils.hs
index b9fb631..4874356 100644
--- a/common/TestUtils.hs
+++ b/common/TestUtils.hs
@@ -38,7 +38,9 @@ If they are not equal, it shows them (using 'show') with the given message prefi
 
 module TestUtils where
 
+import Control.Monad.Error
 import Control.Monad.State
+import Control.Monad.Writer
 import Data.Generics
 import qualified Data.Map as Map
 import System.Random
diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index 72aa3f1..8d92ef7 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -21,6 +21,7 @@ module ParseOccam (parseOccamProgram) where
 
 import Control.Monad (liftM, when)
 import Control.Monad.State (MonadState, modify, get, put)
+import Control.Monad.Writer (tell)
 import Data.List
 import qualified Data.Map as Map
 import Data.Maybe
diff --git a/frontends/RainTypesTest.hs b/frontends/RainTypesTest.hs
index c266daa..9254abc 100644
--- a/frontends/RainTypesTest.hs
+++ b/frontends/RainTypesTest.hs
@@ -20,6 +20,8 @@ with this program.  If not, see <http://www.gnu.org/licenses/>.
 module RainTypesTest where
 
 import Control.Monad.State
+import Control.Monad.Error
+import Control.Monad.Writer
 import Data.Generics
 import Test.HUnit hiding (State)
 
diff --git a/pass/Pass.hs b/pass/Pass.hs
index 6e56b47..67472dc 100644
--- a/pass/Pass.hs
+++ b/pass/Pass.hs
@@ -19,7 +19,10 @@ with this program.  If not, see <http://www.gnu.org/licenses/>.
 -- | Common definitions for passes over the AST.
 module Pass where
 
+import Control.Monad.Error
+import Control.Monad.Reader
 import Control.Monad.State
+import Control.Monad.Writer
 import Data.Generics
 import Data.List
 import qualified Data.Set as Set
diff --git a/pass/Properties.hs b/pass/Properties.hs
index 13a8021..9513280 100644
--- a/pass/Properties.hs
+++ b/pass/Properties.hs
@@ -64,7 +64,7 @@ module Properties
   )
   where
 
-import Control.Monad
+import Control.Monad.Writer
 import Data.Generics
 import Data.Int
 import Data.List