diff options
Diffstat (limited to 'src/GF/Canon/Look.hs')
| -rw-r--r-- | src/GF/Canon/Look.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs index 228a43f3c..8dfd4b3fb 100644 --- a/src/GF/Canon/Look.hs +++ b/src/GF/Canon/Look.hs @@ -41,6 +41,7 @@ lookupLincat gr f = do case info of CncCat t _ _ -> return t AnyInd _ n -> lookupLincat gr $ redirectIdent n f + _ -> prtBad "no lincat found for" f lookupPrintname :: CanonGrammar -> CIdent -> Err Term lookupPrintname gr f = do |