diff options
| -rw-r--r-- | src/compiler/GF/Compile/CheckGrammar.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/CheckGrammar.hs b/src/compiler/GF/Compile/CheckGrammar.hs index d924e413e..5b707157c 100644 --- a/src/compiler/GF/Compile/CheckGrammar.hs +++ b/src/compiler/GF/Compile/CheckGrammar.hs @@ -53,7 +53,8 @@ checkModule opts sgr mo@(m,mi) = do abs <- lookupModule gr a checkCompleteGrammar opts gr (a,abs) mo _ -> return mo - infoss <- topoSortJments2 mo + infoss <- checkIn (ppLocation (msrc mi) NoLoc <> colon) $ + topoSortJments2 mo foldM updateCheckInfos mo infoss where updateCheckInfos mo = fmap (foldl update mo) . parallelCheck . map check |