diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-08 16:51:39 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-08 16:51:39 +0000 |
| commit | 2a46601ebbd7da97382ca43e1519cbe3038738b7 (patch) | |
| tree | e8061403e85582eff6e025ea459f3cf29e9e1eb1 /src/GF/Devel/Compile/Refresh.hs | |
| parent | 99e6923af693478c5f92c16a0254e614568ccb60 (diff) | |
breaking points 1..6 in new Compile
Diffstat (limited to 'src/GF/Devel/Compile/Refresh.hs')
| -rw-r--r-- | src/GF/Devel/Compile/Refresh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Devel/Compile/Refresh.hs b/src/GF/Devel/Compile/Refresh.hs index d512ed39f..242099606 100644 --- a/src/GF/Devel/Compile/Refresh.hs +++ b/src/GF/Devel/Compile/Refresh.hs @@ -30,10 +30,10 @@ import Control.Monad -- for concrete and resource in grammar, before optimizing -refreshModule :: Int -> SourceModule -> Err (Int,SourceModule) +refreshModule :: Int -> SourceModule -> Err (SourceModule,Int) refreshModule k (m,mo) = do (mo',(_,k')) <- appSTM (termOpModule refresh mo) (initIdStateN k) - return (k',(m,mo')) + return ((m,mo'),k') refreshTerm :: Term -> Err Term |