suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2008-03-10 15:19:28 +00:00
parent e3af6eecc1
commit 6abda39ee2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/GenerateCBased.hs
View File

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

2
frontends/ParseOccam.hs
View File

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