diff options
| author | hallgren <hallgren@chalmers.se> | 2013-12-06 13:46:59 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2013-12-06 13:46:59 +0000 |
| commit | 71c174104674e7c6f05081c7e8c07f37ca6a1a99 (patch) | |
| tree | dc25d11cce978d1ef7d01db48adec658e10a56f3 /src | |
| parent | d6974a406523335a6244e81902db46d21a22fde1 (diff) | |
GF.Compile.CheckGrammar: add source path to error message for circular definitions
Diffstat (limited to 'src')
| -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 |