diff options
Diffstat (limited to 'src/GF/Devel/Grammar/Construct.hs')
| -rw-r--r-- | src/GF/Devel/Grammar/Construct.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Devel/Grammar/Construct.hs b/src/GF/Devel/Grammar/Construct.hs index eb4ce857d..5b4215843 100644 --- a/src/GF/Devel/Grammar/Construct.hs +++ b/src/GF/Devel/Grammar/Construct.hs @@ -69,7 +69,7 @@ isLink j = jform j == JLink -- constructing judgements from parse tree emptyJudgement :: JudgementForm -> Judgement -emptyJudgement form = Judgement form meta meta meta (identC "#NOLINK") 0 where +emptyJudgement form = Judgement form meta meta meta (identC "#") 0 where meta = Meta 0 addJType :: Type -> Judgement -> Judgement |