From 1195db1da3f8e0c1b7edf39cac604b2bf8482aab Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 19 Oct 2012 19:56:00 +0000 Subject: Consistenly use SourceGrammar instead of [SourceModule] when calling compiler passes --- src/compiler/GF/Compile/Rename.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/compiler/GF/Compile/Rename.hs') 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}) -- cgit v1.2.3