diff options
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 |