diff options
Diffstat (limited to 'src/GF/Compile/GrammarToCanon.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index e0db76f90..7b7620f3b 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -80,8 +80,8 @@ redInfo am (c,info) = errIn ("translating definition of" +++ prt c) $ do returns c' $ C.AbsCat cont fs AbsFun (Yes typ) pdf -> do let df = case pdf of - Yes t -> t - _ -> EData --- data vs. primitive + Yes t -> t -- definition or "data" + _ -> Eqs [] -- primitive notion returns c' $ C.AbsFun typ df AbsTrans t -> returns c' $ C.AbsTrans t |