diff options
| author | krangelov <kr.angelov@gmail.com> | 2019-03-26 12:21:52 +0100 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2019-03-26 12:21:52 +0100 |
| commit | de53a7c4db1f7b00b6297d796dae6860e3209932 (patch) | |
| tree | 3b6e2aeb704944a462f32ba2383952ee0adea8c3 /src/compiler/GF/Grammar | |
| parent | 1e9188ea6093cdaf3593703a596ebf840a539f02 (diff) | |
| parent | a55c7c78895d1d6c68157d013df7c87ac2b15b7b (diff) | |
Merge branch 'master' of https://github.com/GrammaticalFramework/gf-core
Diffstat (limited to 'src/compiler/GF/Grammar')
| -rw-r--r-- | src/compiler/GF/Grammar/Canonical.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/compiler/GF/Grammar/Canonical.hs b/src/compiler/GF/Grammar/Canonical.hs index ed4f3fc9e..4adff02f2 100644 --- a/src/compiler/GF/Grammar/Canonical.hs +++ b/src/compiler/GF/Grammar/Canonical.hs @@ -217,6 +217,7 @@ instance Pretty LinValue where pp lv = case lv of ConcatValue v1 v2 -> sep [v1 <+> "++",pp v2] ErrorValue s -> "Predef.error"<+>doubleQuotes s + ParamConstant pv -> pp pv Projection lv l -> ppA lv<>"."<>l Selection tv pv -> ppA tv<>"!"<>ppA pv VariantValue vs -> "variants"<+>block vs @@ -260,6 +261,7 @@ instance Pretty LinPattern where instance PPA LinPattern where ppA p = case p of + ParamPattern pv -> ppA pv RecordPattern r -> block r TuplePattern ps -> "<"<>punctuate "," ps<>">" WildPattern -> pp "_" |