GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 00:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

breaking points 1..6 in new Compile

Browse Source
This commit is contained in:
aarne
2007-12-08 16:51:39 +00:00
parent 99e6923af6
commit 2a46601ebb
2 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Devel/Compile/Refresh.hs
View File

@@ -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