Fixed some unused module import warnings, now that PassM is not build of monad transformers

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

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
 

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)

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

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

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

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)
 

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

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