Fixed a couple of uses of the PassM monad that depended on the old mechanism

backends/GenerateCBased.hs

@@ -60,7 +60,7 @@ type CGen' = StateT (Either [String] Handle) PassM
 type CGen = ReaderT GenOps CGen'
 
 instance Die CGen where
-  dieReport = throwError
+  dieReport err = lift $ lift $ dieReport err
   
 instance CSMR CGen' where
   getCompState = lift getCompState

frontends/ParseOccam.hs

@@ -2021,7 +2021,7 @@ parseOccamProgram toks
     =  do cs <- get
           (p, ws, cs') <- runTockParser toks sourceFile cs
           put cs'
-          tell ws
+          mapM_ warnReport ws
           return p
 --}}}