diff options
Diffstat (limited to 'src/compiler/GF/Compile/Rename.hs')
| -rw-r--r-- | src/compiler/GF/Compile/Rename.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/Compile/Rename.hs b/src/compiler/GF/Compile/Rename.hs index f2dbf7d69..9e959c353 100644 --- a/src/compiler/GF/Compile/Rename.hs +++ b/src/compiler/GF/Compile/Rename.hs @@ -49,9 +49,9 @@ renameSourceTerm g m t = do status <- buildStatus g (m,mi) renameTerm status [] t -renameModule :: [SourceModule] -> SourceModule -> Check SourceModule -renameModule ms mo@(m,mi) = do - status <- buildStatus (mGrammar ms) mo +renameModule :: SourceGrammar -> SourceModule -> Check SourceModule +renameModule gr mo@(m,mi) = do + status <- buildStatus gr mo js <- checkMapRecover (renameInfo status mo) (jments mi) return (m, mi{jments = js}) |