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

GF.Compile.CheckGrammar: add source path to error message for circular definitions

Browse Source
This commit is contained in:
hallgren
2013-12-06 13:46:59 +00:00
parent e6096bffc5
commit 0d047707fc
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/CheckGrammar.hs
View File

@@ -53,7 +53,8 @@ checkModule opts sgr mo@(m,mi) = do
abs <- lookupModule gr a abs <- lookupModule gr a
checkCompleteGrammar opts gr (a,abs) mo checkCompleteGrammar opts gr (a,abs) mo
_ -> return mo _ -> return mo
infoss <- topoSortJments2 mo infoss <- checkIn (ppLocation (msrc mi) NoLoc <> colon) $
topoSortJments2 mo
foldM updateCheckInfos mo infoss foldM updateCheckInfos mo infoss
where where
updateCheckInfos mo = fmap (foldl update mo) . parallelCheck . map check updateCheckInfos mo = fmap (foldl update mo) . parallelCheck . map check