From 2a46601ebbd7da97382ca43e1519cbe3038738b7 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 8 Dec 2007 16:51:39 +0000 Subject: breaking points 1..6 in new Compile --- src/GF/Devel/Compile/Refresh.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Devel/Compile/Refresh.hs') 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 -- cgit v1.2.3