diff options
Diffstat (limited to 'src/GF/Source')
| -rw-r--r-- | src/GF/Source/GrammarToSource.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index 1b4185796..d38701eb6 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -38,7 +38,7 @@ forName (MTConcrete a) = tri a trOpen :: OpenSpec Ident -> P.Open trOpen o = case o of - OSimple OQNormal i -> P.OQualQO P.QOCompl (tri i) + OSimple OQNormal i -> P.OName (tri i) OSimple q i -> P.OQualQO (trQualOpen q) (tri i) OQualif q i j -> P.OQual (trQualOpen q) (tri i) (tri j) |